السلام عليكم و رحمة الله
هذا الكود يرحل البيانات لليسار
أرجو منكم جعله يرحل للاسفل
و جزاكم الله خيرا
Sheets("inv").Range("b9:I54").copy
Sheets("rebort").Range("ad5").End(xlToLeft).Offset(, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False