Einfügen von Zeilen dynamisch in VBA mit Formatierung

Question

Ich habe eine Zeile (A7: O7), basierend auf der Anzahl der Zeilen in meinem Wörterbuch muss ich diese viele Anzahl von Zeilen in meinem Herzen mit der gleichen Formatierung wie Row kopieren (A7: O7). Mein Code unten kopiert nur die Farben der Zellen und die Formatierung von Zahlen. Kann mir bitte jemand helfen?

Dim j As Integer 
j = dRpt.Count 
Set r = ThisWorkbook.Sheets("sht1").Range("a7") 
Do 
    Range(r.offset(1,0),r.offset(j,0).entirerow.insert 
    Set r = Cells(r.Row + j + 1, 1) 
    If r.Offset(1, 0) = "" Then 

    End If 
    Exit Do 
Loop 

Answer 1

dieses einfügen j Zeilen unter "A7: O7", der Zellen in den Spalten "A: O" haben gleiche Formatierung von "A7: O7"

j = Drpt.Count 
With ThisWorkbook.Sheets("sht1").Range("a7:o7") 
    .Offset(1).Resize(j).EntireRow.Insert xlShiftDown, .Offset(-1).Cells 
End With