السلام عليكم
جمعة مباركة
الاخ هشام المحترم
حسب ما فهمته من طلبك
استخدم هذا الكود:
Sub ترحيل()
Sheets("Sheet1").Select
Range("A1:IU1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
ان شاء الله يكون مطلوبك
والا ارجو توضيح الطلب