Excel VBA - fixe Zeile n-fach kopieren

Hallo!

Ich habe ein Excel-Sheet, indem ich mittels Makro, die Zeile 7 gemäß der Anzahl in Zelle A3 kopieren und unterhalb, also ab Zeile 8 einfügen muss:

A3 = 10 (variable)

Formeln der Zeile 7 (Spalten A bis R) sollen dann 10 mal untereinander kopiert werden.

Kann mir jemand helfen?
Tausend Dank im Voraus!

Ganz simpel:

Sub Makro1()
Dim var As Long

var = Range("A3").Value

For i = 1 To var
Range("A7:R7").Copy
Cells((i + 7), 1).Select
ActiveSheet.Paste
Next i

Application.CutCopyMode = False

End Sub


Edit: Bitte um Rückmeldung!

Danke für die Lösung, bin zurechtgekommen!!