Macro Insertion ligne vide si A1<>A2 + copie

Bonjour,

J'ai cette macro qui me permet d'insérer une ligne lorsque deux cellules sont différentes et de copier la cellule inférieure sur la ligne insérer.
Ce que j'aimerai serait de copier en plus A2 (par exemple) en H2.
Pouvez-vous m'aider?

Cordialement.

Sub Separe()
Dim DerLigne As Long, Ligne As Long
Dim cel As Range, ins As Range
    DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For Ligne = DerLigne To 3 Step -1
        If Range("A" & Ligne).Value <> "" And _
        Range("A" & Ligne - 1).Value <> "" And _
        Range("A" & Ligne).Value <> Range("A" & Ligne - 1).Value Then
            Rows(Ligne).Insert
            Range("A" & Ligne + 1).Copy Range("A" & Ligne)
        End If
    Next
End Sub

EDIT : Ajout de la coloration syntaxique (les balises de code)
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code