Como vc nao disponibilizou o arquivo teste esse codigo

O numero do Codigo esta na Celula A1

Sub Imprimir()

Dim ContInicial     As String
Dim ContFinal       As String
Dim Cont            As Long
Dim A               As Long



ContInicial = Application.InputBox("Digite o Codigo Inicial", "Numero Inicial")
ContFinal = Application.InputBox("Digite o Codigo Final", "Numero Final")


For A = ContInicial To ContFinal

Cont = A


Cells(1, 1).Value = Cont

ActiveSheet.PrintOut

Next


End Sub