Crear contador de facturas en excel

Hace un par de años tuve la misma duda, hice una macro que
además de hacer un contador y mandar a imprimir me incluía
los datos de la factura en otra hoja y los dejaba listos
como una base de datos para hacer mis filtros.
Te paso el código de la macro:
O SI LO PREFIERES TE MANDO EL ARCHIVO DE EXCEL.

Sub IMPRIMIR()
Dim YouWantReg As Variant
With Sheets("factura")
nuevo = Range("nofact") + 1
nuevo = Sheets("factura").Range("nofact") + 1
'--> LA SIGUIENTE LÍNEA MANDA A IMPRIMIR
ActiveWindow.SelectedSheets.PrintOut Copies:=1
YouWantReg = MsgBox(PROMPT:="Sus datos son
correctos ?", _
Buttons:=vbYesNo,
title:=ActiveWorkbook.Name) 'title:="FacturaVsa")
If YouWantReg = vbYes Then
MsgBox "No. de factura es" & " " & Sheets("factura").Range
("nofact"), title:=ActiveWorkbook.Name '"FacturaVsa"
Sheets("FACTURA").PrintOut Copies:=1
'--> AQUÍ ESTÁ EL CÓDIGO QUE COPIA LOS DATOS DE LA FACTURA
EN LA BASE DE DATOA
Application.StatusBar = False '"generando ..."
Set TransRowRng = Worksheets("baseconsig").Cells(1,
1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
'
With Worksheets("baseconsig")
.Cells(NewRow, 1).Value = Sheets("factura").Range
("nofact")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 2).Value = Sheets("factura").Range
("dat")
End With
'

With Worksheets("baseconsig")
.Cells(NewRow, 3).Value = Sheets("factura").Range
("fab")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 4).Value = Sheets("factura").Range
("pair") + _
Sheets("factura").Range("uno") + Sheets
("factura").Range("dos") + Sheets("factura").Range("tres")
+ Sheets("factura").Range("cuatro") + Sheets
("factura").Range("cinco") + Sheets("factura").Range
("seis") + Sheets("factura").Range("siete") + Sheets
("factura").Range("ocho") + Sheets("factura").Range
("nueve") + Sheets("factura").Range("diez")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 5).Value = Sheets("factura").Range
("ABSOLUTE")
End With
'
With Worksheets("baseconsig")
.Cells(NewRow, 6).Value = Sheets("factura").Range
("oserv")
End With
If Sheets("factura").Range("fab") = "1" Then
MsgBox Sheets("factura").Range("fab"),
title:=ActiveWorkbook.Name
ElseIf Sheets("factura").Range("fab") = "13" Then
MsgBox Sheets("factura").Range("fab"),
title:=ActiveWorkbook.Name
Else
MsgBox "El rango fábrica no es correcto" & " " & Sheets
("factura").Range("fab"), title:="FacturaVsa"
End If
'--> FIN DE LA RUTINA QUE COPIA LOS DATOS DE LA FACTURA EN
LA BASE DE DATOS

Range("nofact") = nuevo
MsgBox "No. de factura es" & " " & Sheets("factura").Range
("nofact"), title:=ActiveWorkbook.Name '"FacturaVsa"
End If
End With
End Sub


A sus órdenes.

Saludos,

Quisiera saber si alguien me puede ayudar con esto, como
puedo hacer un contador en excel para que cuando mande a
imprimir me sume 1 en una celda.

Gracias.

.