السلام عليكم
اولا تاكد من صحة الترحيل وخاصة بالنسبة للخلايا الست الاولى من ورقة1
.Cells(Lr, "A").Value = Lr - 6
.Cells(Lr, "B").Value = [E6]
.Cells(Lr, "C").Value = [C9]
.Cells(Lr, "D").Value = [C8]
.Cells(Lr, "E").Value = [E11]
.Cells(Lr, "F").Value = [G13]
شاهد المرفق 2003
tast.rar