Impresiones multiples con macro

Ya que no tengo idea de como hacerlo. Conseguí una macro para imprimir un formulario desde un inicio hasta un fin (numéricos), funciona bien imprimiendo de uno en uno cada formulario. Pero no se como hacer para que me imprima de 2 en 2 o de 3 en 3 en una misma hoja. Esta es la macro que estoy usando

Sub imprimir()

inicio = Range("E61").Value

fin = Range("G61").Value

        For i = inicio To fin

            Range("H3").FormulaR1C1 = i

            ActiveWindow.SelectedSheets.PrintOut Copies:=1

         Next

          Range("H3") = ""

End Sub