How to revised macro code to repeat the recorded task without recording several times?

for i = 1 to 100

Range("J1").Select
ActiveCell.FormulaR1C1 = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

next i