title: How to insert a single blank row ABOVE and not below specific repeated row
body: <p>I using the below macro and it inserts the row below the cell with "Card Number"  </p>
  
  <p>I cannot get it to go above the row no matter what I do. Probably quite basic for some but have recently only found how useful macros are               </p>
  
  <pre><code>Sub Insert()
  Dim c As Range
  For Each c In Range("A1:A5000")
  If c.Value Like "*Card Number:*" Then
  c.Offset(1, 0).EntireRow.Insert
  End If
  Next c
  End Sub
  </code></pre>