كود ترحيل فى نفس الشيت

[محب لله ورسوله]

السلام عليكم

الإخوة الأفاضل

برجاء المساعده فى عمل نسخ وترحيل قيم العمود " L " 

إلى اول عمود خالى من البيانات والذى يبدأ من العمود " P " وينتهى فى العمود "AA"

ويكون الترحيل فى اول عمود فارغ وهكذا

مرفق الشيت للتوضيح والتعديل

Book1.xlsx

[lionheart]

Sub Test()
    Dim r As Range, c As Long
    Application.ScreenUpdating = False
        With ActiveSheet
            Set r = .Range("L4:L" & .Cells(Rows.Count, "L").End(xlUp).Row)
            c = .Cells(4, Columns.Count).End(xlToLeft).Column + 1
            .Cells(4, c).Resize(r.Rows.Count).Value = r.Value
        End With
    Application.ScreenUpdating = True
End Sub

 

[محب لله ورسوله]

جزاك الله خيرا وبارك الله فيك