السلام عليكم ورحمة الله وبركاته
طلب بسيط جدا ارجو الرد
اريد شرح لهذا الكود
Sub OFFICNA1()
LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row
x = Range("F2").Value
Range("A2:D" & LR).Select
Selection.Copy
Range("A2").Select
Sheets(x).Select
LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row
Range("A" & LR1 + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C1").Select
MsgBox ("done")
End Sub
انا فهمت بعض خطواتة الخطوات اااساسية اللي هي في السطور الطويلة مش فاهمها