Nhờ mọi người tạo vòng lặp cho 1 macro

[diennv50]

Mình có 1 đoạn macro bằng cách sử dụng chức năng recode trong excel như bên dưới, nhưng mình cần nó chạy quay vòng lặp lại khoảng 300 lần. Xin được mọi người sửa giúp với ah.
Sub Macro1()
'
' Macro1 Macro
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("D9").Select
Range("O8").Select
Selection.Copy
Range("N8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$20:$AJQ$168").AutoFilter Field:=7
ActiveSheet.Range("$A$20:$AJQ$168").AutoFilter Field:=7, Criteria1:="<>"
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("BBNT").Select
Range("L1").Select
Selection.Copy
Range("K1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[VetMini]

Mình có 1 đoạn macro bằng cách sử dụng chức năng recode trong excel như bên dưới, nhưng mình cần nó chạy quay vòng lặp lại khoảng 300 lần. Xin được mọi người sửa giúp với ah.
Sub Macro1()
...
End Sub

Làm ăn cẩu thả quá sức.

Recode có nghĩa là "đem ra code lại"
"khoảng" là bao nhiều? Đã lập trình thì con số phải chính xác. Trừ phi viết code dạng trí khôn nhân tạo. Ở đây chưa ai đạt đến trình độ viết code ấy.

Sub Macro2()
' sub với vòng lặp chạy code của Macro1 300 lần
Const khoang300 = 300
For i = 1 to khoang300
Macro1
Next i
End Sub