Makro zum Zeile hinzufügen

Public Sub Schaltfläche1_Click()
Call Zeilehinzufügen
End Sub

Private Sub Zeilehinzufügen()
'=> Kopiert den Bereich und hängt ihn immer unten an
Dim rng As Range, lngLRow&, lngTRow&
'**Parameter festlegen
Set rng = Range("A33:AY37")
'**Parameter ermitteln
lngTRow = rng.Row + rng.Rows.Count
lngLRow = WorksheetFunction.Max(Range("A" & Rows.Count).End(xlUp).Row, rng.Row)
Do While lngTRow