اخى الجموعي
انا بسألك ايه نوع التنسيقات اللى انت عاوز تضعها ( حدود - نوع خط كام.- حجم خط كام ) .. لانى مش حابب قصة النسخ واللصق دي عامة جرب الكود التالى لكن لابد ان تتأكد من اكتمال البيانات في الصف المدرج
Sub تنسيق()
Dim Sh As Object
Set Sh = ThisWorkbook.Sheets(1)
Range("A2:I2").Select
Selection.Copy
LR = Cells(Rows.Count, "A").End(xlUp).Row
Sh.Range(Range("A" & LR), Range("A" & LR).End(xlToRight)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sh.Range("A1").Select
End Sub
تحياتي