کپی و جایگذاری بخشی از داده در اکسل

Sub copy()

Sheets("input").Select '  انتخاب برگه مورد نظر
 Range(Cells(i, 13), Cells(i - 5, 13)).Copy ' بخش مورد نظر را کپی می کنیم
  Sheets("Sheet1").Select ' برگه هدف را انتخاب می کنیم
    Cells(73, i - 6).Select ' ناحیه ای با کپی به آنجا منتقل شود
    ActiveSheet.Paste ' جایگذاری بخش کپی شده

   استفاده از این دستور زمانی لازم است که بخواهیم بین صفحات حرکت کنیم:Sheets("input").Select