السلام عليكم الكود التالي هو ترحيل لبيانات من صفحة إلى أخرى المشكل انه يرحل من الصف 10 إلى نهاية الصفحة وانا أريد أن يتوقف الترحيل إلى غاية الصف 21 حاولت ولكن لم استطع فنرجو من الأخوة تقديم المساعدة
Sub TARHIL()
x = Month([s6].Value)
Sheets(9).Activate
Range("a10:u" & Cells(Rows.Count, "u").End(xlUp).Row).Copy
Sheets(x + 10).Activate
lr = Range("z" & Rows.Count).End(xlUp).Row
Range("a" & lr + 2).Select
Selection.PasteSpecial xlPasteValues
Sheets(9).Activate
Range("s6").Select
End Sub