Excel - Macro para insertar nueva linea con o sin texto cada n cantidad de lineas

Sub Macro1()

'

' Macro1 Macro

'

'

    ' </> ---&--- Rellena la columna 1 con numeros del 1 al 50000

    ActiveCell.FormulaR1C1 = "1":    Range("A2").Select

    ActiveCell.FormulaR1C1 = "2":    Range("A3").Select

    ActiveCell.FormulaR1C1 = "3":    Range("A1:A3").Select

    Selection.AutoFill Destination:=Range("A1:A5000"), Type:=xlFillDefault

    Range("A1:A5000").Select

   ' </> ---&--- Busca la primera celda vacia para saber cuantas lineas hay

    Lin = 1

    While Cells(Lin, 1) <> ""

      Lin = Lin + 1

    Wend

    ' </> ---&--- Inserta una linea en blanco cada sesenta lineas

    Fin = Lin + Int(Lin / 60)

    For a = 61 To Fin Step 61

        Range("A" & a).Select

        Selection.Insert Shift:=xlDown

        Cells(a, 1) = "--- Linea en blanco ---"

    Next

End Sub

Sub HP3()

For i = 1 To 6 Step 3

    ActiveSheet.HPageBreaks.Add Before:=Range("A" & i + 1)

Next i

End Sub