title: Insert rows dynamically in VBA with formatting
body: <p>I have a row(A7:O7), based on the number of rows in my dictionary I need to copy these many number of rows in my heart with the same formatting as Row(A7:O7).
  My code below is just copying the colors of the cells and the formatting of numbers. Can someone help please?</p>
  
  <pre><code>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
  </code></pre>