کمک جهت تکمیل یک دستور

[khorasan66]

باسلام من یک دستور نوشتم که صحیح است و مشکلی ندارد به شرح ذیل :
Sub copy4()
Sheet1.Range("A9:F9").Copy
Sheet2.Range("A5000").End(xlUp).Offset(1, 0).Select
With Selection
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
میخواهم از دستور Copy استفاده نکنم لذا این را نوشتم که ناقص است لطفا کامل کنید
Sub copy5()
Sheet2.Range("A5000").End(xlUp).Offset(1, 0) = Sheet1.Range("A9:F9").Value
End Sub
البته مشکلم مربوط (.Offset(1, 0) به ناحیه انتخاب شده جهت جایگزین شدن مقادیر می باشد

[khorasan66]

از دستور زیر استفاده کنید :
Sheet2.Range(Range("A5000").End(xlUp).Offset(1, 0), Range("A5000").End(xlUp).Offset(1, 5)) = Sheet1.Range("A9:F9").Value