ارجو من عظماء الموقع مساعدتى وهذا اول طلب لى فى الموقع اريد عمل حلقة تكرارية لهذا الكود
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