Bocs, most volt időm foglalkozni vele.
Végül sokkal egyszerűbb lett. Persze újra rögzítettem a makrót, mert sokat nyomkodtam összevissza. 🙂 a végén a lenullázás csak a biztonság kedvéért van.
Köszönöm a segítséget.

Sub Makró8()
‘
‘ Makró8 Makró
‘
‘ Billentyűparancs: Ctrl+n
‘
Dim ciklus As Integer, usor As Long, ciklusszam As Integer
ciklusszam = Range(„I1”)
For ciklus = 1 To ciklusszam
ActiveCell.Range(„A1:D30”).Select
Selection.Copy
ActiveCell.Offset(30, 0).Range(„A1”).Select
ActiveSheet.Paste
ActiveCell.Select
Next
ciklusszam = 0
Application.CutCopyMode = False