كيفية تحويل هذا الكود بخاصية for and next

[elgabale]

    Sheets("1").Select
    Rows("1:45").Select
    Selection.Copy
    Windows("YSam Macro.xlsb").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O15:O33").Select
    ActiveSheet.Paste
 Windows("ysam.xlsb").Activate
    Worksheet = ActiveSheet.Name
    On Error GoTo errorhandler
    Sheets("2").Select
    Rows("1:45").Select
    Selection.Copy
    Windows("YSam Macro.xlsb").Activate
    Range("A46").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("I54").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O60:O78").Select
    ActiveSheet.Paste
 Windows("ysam.xlsb").Activate
     Worksheet = ActiveSheet.Name
    On Error GoTo errorhandler
    Sheets("3").Select
    Rows("1:45").Select
    Selection.Copy
    Windows("YSam Macro.xlsb").Activate
    Range("A92").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
     Range("I100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O106:O124").Select
    ActiveSheet.Paste
Windows("ysam.xlsb").Activate
    Worksheet = ActiveSheet.Name

[elgabale]

ارجو من عظماء الموقع مساعدتى وهذا اول طلب لى فى الموقع اريد عمل حلقة تكرارية لهذا الكود

  Sheets("1").Select
    Rows("1:45").Select
    Selection.Copy
    Windows("YSam Macro.xlsb").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("I9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O15:O33").Select
    ActiveSheet.Paste
 Windows("ysam.xlsb").Activate
    Worksheet = ActiveSheet.Name
    On Error GoTo errorhandler
    Sheets("2").Select
    Rows("1:45").Select
    Selection.Copy
    Windows("YSam Macro.xlsb").Activate
    Range("A46").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("I54").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O60:O78").Select
    ActiveSheet.Paste
 Windows("ysam.xlsb").Activate
     Worksheet = ActiveSheet.Name
    On Error GoTo errorhandler
    Sheets("3").Select
    Rows("1:45").Select
    Selection.Copy
    Windows("YSam Macro.xlsb").Activate
    Range("A92").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
     Range("I100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O106:O124").Select
    ActiveSheet.Paste
Windows("ysam.xlsb").Activate
    Worksheet = ActiveSheet.Name