Bom dia , tenho uma planilha, bem dizer criei um gerenciador de recibos, e estou enfrentando dificuldade com o botao imprimir, quando eu clico no botao iprimir do meu user form ele faz um leitura da base de dados e imprimi todos recibos de acordo com a base de dados, mas eu quero imprimir apenas o ultimo recibo que adicionei na base de dados.. ajuda ai o codigo do botao e o seguinte.

Public Sub lsImprimirRecibos()
    On Error GoTo TratarErro
    
    'Declaração das variáveis
    'iTotalLinhas é o total de clientes
    'iLinhas é o controle da linha atual no loop
    Dim iTotalLinhas    As Long
    Dim iLinhas         As Long
    
    'Total de clientes, de cima para baixo localiza a última célula preenchida da lista
    iTotalLinhas = Worksheets("Dados").Cells(Rows.Count, 1).End(xlUp).Row
    
    'Inicia na linha logo abaixo do cabeçalho
    iLinhas = 2
    
    'Passa por todos os clientes
    While iLinhas <= iTotalLinhas
        'Atualiza o valor do cliente
        Worksheets("Recibo").Cells(2, 5).Value = Worksheets("Dados").Cells(iLinhas, 1).Value
        
        'Imprime o recibo
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        
        'Passa para o próximo cliente
        iLinhas = iLinhas + 1
    Wend
    
Sair:
    Exit Sub
TratarErro:
    'Tratamento de erro se houverem problemas
    MsgBox "Houve um erro na impressão!", vbCritical
    GoTo Sair
End Sub