چگونه در اکسل ردیفی را از یک صفحه به صفحه دیگر کپی و جایگذاری کنید

این ماکرو فوق العاده ساده یک ردیف را از یک صفحه به صفحه دیگر کپی می کند.

Sub Paste_OneRow()
'Copy and Paste Row
Sheets("sheet1").Range("1:1").Copy Sheets("sheet2").Range("1:1")
Application.CutCopyMode = False
End Sub