Insérer 2 lignes en copiant certaines cellules

Bonjour à tous,

J'utilise une macro pour insérer 2 lignes après chaque ligne de mon tableau EXCEL

Sub InsertionLigne()
Dim i As Integer
For i = 100 To 1 Step -1
Cells(i + 1, 1).Select
ActiveCell.Offset(1).Resize(2, 1).EntireRow.Insert
Next
End Sub
Ce code fonctionne très bien mais j'aimerais ajouter des éléments.

J'aimerais que dans les cellules insérées des informations soient reprises
Les colonnes A B C et E doivent être copiées dans les 2 lignes insérées.
Dans la 2e ligne insérée colonne D j'aimerais le code 445660 systématiquement
Dans la 1ère ligne insérée colonne F j'aimerais que montant indiqué dans la colonne G de la ligne juste au-dessus soit divisé par 1.2
Dans la 2e ligne insérée colonne F j'aimerais que montant indiqué soit le montant de la colonne G 2 lignes au dessus - le montant de la colonne F 1 ligne au-dessus :

Exemple ci-dessous :
Journal Date Réf. pièce Compte Libellé Débit Crédit
AC 01/06/2020 SOLEIL 467300 ABCD 405,00
AC 01/06/2020 SOLEIL ABCD 337.50
AC 01/06/2020 SOLEIL 445660 ABCD 67.50

Pourriez-vous m'aider s'il vous plait ?

Merci à vous d'avance !