Habe es bereits mit diesem Makro versucht, jedoch wird hier beim einfügen einer neuen Zeile der Druckbereich um eine Zeile erweitert und um eine Spalte verkleinert.
Private Sub CommandButton2_Click()
Dim rngF As Range, rngP As Range
Set rngF = Cells.Find("*", Range("A1"), , , , xlPrevious)
rngF.EntireRow.Copy Cells(rngF.Row + 1, 1)
With ActiveSheet.PageSetup
Set rngP = Range(.PrintArea)
.PrintArea = Range(rngP(1), Cells(rngF.Row + 1, rngP.Columns.Count)).Address
End With
End Sub
Bitte um Antwort.