Kopiointi makro apua

Moikka

Alla oleva makro toimii hyvin eli se kopioi esim. taulukon ja siirtää sen 15 riviä alemmaksi mutta seuraavan kopioinnin jälkeen taulukoiden väliin ei jää yhtään riviä.
Haluaisin makron jatkavan kopiointia sillä tavalla että jokaisen taulukon väliin jää esim. 20 tyhjää riviä. Millä tavalla se onnistuisi muuttamalla tätä makroa vai onko helpompia tapoja olemassa?


Sub CopyToEnd()

Range("A1:E10").Select
Selection.Copy

Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Sub InsertAtRow15()

Range("A1:E10").Select
Selection.Copy

Rows("15:15").Select
Selection.Insert Shift:=xlDown

Application.CutCopyMode = False

End Sub