Numero de facturas

Hola

Tengo el siguiente programa para calcular el numero de facturas pero siempre empieza en lka factura 1. Ahora quiero que me cuente las facturas y desde la primera factura sea la 12 o la 25. Les agradecería su ayuda

Sub cuentafacturas1t()
Range("g1").Select ' selecciono las variables que quiero de esa hoja
Selection.ClearContents ' borro las variables seleccionadas
Range("g1") = "1" ' le digo que el valor de g1 es 1
Dim n As Integer, hoja As String ' declarar variables
For n = 1 To Worksheets.Count ' contamos la cantidad de hojas
hoja = Worksheets(n).Name ' creo el nombre de hoja hasta "factura"
numero = "factura" & Sheets("Sumatorio").Range("g1").Value ' obtengo en n° de Hoja
'Factura = hoja & numero ' obtengo el n° de factura
If hoja = numero Then ' si es factura copio los datos de la hoja
Else
End If
Next
End Sub

Muchas gracias por su contestacion