السلام عليكم
تفضل
Sub ALIDROOS_JC()
With ورقة4.Columns(2).Rows(65536).End(xlUp)
.Offset(1, 0) = [D12]
.Offset(1, 1) = [S12]
.Offset(1, 2) = [E14]
.Offset(1, 3) = [E14]
.Offset(1, 4) = [AB15]
.Offset(1, 5) = [AL13]
.Offset(1, 6) = [E15]
.Offset(1, 7) = [P14]
.Offset(1, 8) = [R20] & " " & [Y20] & " " & [AC20] _
& " " & [AD20] & " " & [AF20] & " " & [AI20] & " " & [AJ20]
End With
MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "تم الترحيل"
End Sub