Com esse macro excel vba vamos imprimir a area desejada,
tornando interativa o total de digitação existente.

Sub sbx_imprimir_resultado()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Set wArea = Planilha1.Range(“L1:U” & x)
Planilha1.PageSetup.PrintArea = wArea.Address ‘    “$L$1:$U$221”
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub