Ajustement hauteur ligne insérée avec macro

Bonjour,
J'ai la macro ci dessous qui me permet de copier la dernière ligne remplie en colonne E et de la coller dans la première ligne vide en colonne I tout en effaçant le contenu de certaines cellules.
Elle fonctionne très bien avec un raccourci clavier "Ctrl+w"
Je voudrais juste que cette nouvelle ligne copiée ait une hauteur de 30 (ligne de titres et totaux) au lieu de 15 comme pour les autres actuellement (lignes de détails).
Comment écrire cette modification et où la placer ?
J'espère avoir été clair et merci d'avance pour votre collaboration.
Cordialement
Fat


Sub recop()
'dernière ligne remplie en colonne E
ligneC = Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row
'première ligne vide en colonne I
Dim Ligne As Long
Ligne = Columns(9).Find("*", , , , xlByColumns, xlPrevious).Row + 1
'copier-coller
Range("A" & ligneC & ":Z" & ligneC).Select
Selection.Copy
Range("A" & Ligne).Select
ActiveSheet.Paste
'Effacements
Range("F" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("G" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("J" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("P" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
Range("C" & Ligne).Select
ActiveCell.FormulaR1C1 = ""
End Sub