Formel kopieren

[taschenlampe]

Hallo zusammmen ich schon wieder

wie bekomme ich es hin das Excel sich die letzten Zeile nimmt und die 48 mal nach unten kopiert? Und das jeden Tag wieder unten drunter.

Danke und LG

[taschenlampe]

selbst gefunden

Code:

Sub 123()
Dim ar As Variant, i As Integer
Dim lngAnzahl As Long

ar = Array("Tabelle1")
lngAnzahl = 48

Application.ScreenUpdating = False
For i = LBound(ar) To UBound(ar)
   With Worksheets(ar(i))
       .Rows(1).Copy .Rows("2:" & lngAnzahl + 1)
   End With
Next i
End Sub

 mit bischen umbauen und dann doch für schlecht befunden...