Bom galera do forum preciso da ajuda de vocês nesta questão, não entendo de VBA, mais a curiosidade e imensa, bem,tenho uma planilha e que preciso imprimir as descrições das Notas fiscais buscadas em outra por PROCV , seria possivel criar uma rotina em que se eu colocar as numerações na coluna R a rotina copia a NF da R5 para A18 e imprima? e faça esse processo ate que a ultima seja impressa supondo que posso ter de uma nota R5 a R22 por exemplo e assim que a ultima for impressa a rotina pare, tentei efetuar o processo por macro gravada mais empaquei em fazer ela parar ao encontrar a ultima celula preenchida.

segue abaixo o codigo gerado para imprimir em 5 de cada vez..

Agradeço a disponibilidade em ajudar...
Sub Imprimirsequencia5()

Range("R4").Select
Application.CutCopyMode = False
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("R5").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("R6").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("R7").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("R8").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

End Sub