Como repetir a macro x vezes?

[Renato Henrique Gurgel Mot 0]

Prezados,

 

Como faço para que essa macro1 que eu criei seja repetida por x vezes?

 

Segue a macro1:

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.Offset(1, 0).Select
Intersect(Selection.EntireRow, Range("A:XFD")).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 2)).Select
Selection.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(15, 0)).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 4).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 15)).Select
Selection.Copy
ActiveCell.Offset(0, -1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
ActiveCell.Offset(0, 18).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 15)).Select
Selection.Copy
ActiveCell.Offset(0, -1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
ActiveCell.Offset(16, -20).Select
End Sub

[DJunqueira 198]

você pode usar algo como:

For i = 1 to x

...

Next i

 

mas essa sua macro está horrível e não vale uma repetição, hehehe