macro referencia celda en un for. - combinacion de correspondencia

G1 en la hoja "titulares" es la celda que quiero referenciar en mi macro, ya que quiero ingresar el nro de registros que quiero imprimir, y no salga los 15, por ejemplo si solo quiero los 5 primeros ...

y si la celda g1 estuviera en la hoja gastos como lo agrego a la macro "imprimir"

aquiles dejo el codigo de la macro.

______________________________________________________________

Sub Macro1()

Sheets("gastos").Select

ActiveSheet.PageSetup.PrintArea = "A1:D14"

For i = 2 To 15

depto = Sheets("titulares").Cells(i, "A")

nombre = Sheets("titulares").Cells(i, "B")

porcentaje = Sheets("titulares").Cells(i, "C")

[B1] = nombre

[B2] = depto

[B3] = porcentaje * [B14]

ActiveSheet.PrintPreview

Next

End Sub

Libro1.xltm