Insert row
 

In COL A, how can I insert a row above cells whose contents begin with
0A? (That's a zero and an A)

Insert row
 

'========
Option Explicit
Sub insertrowAboveOA()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If UCase(Left(Cells(i, 1), 2)) = "0A" Then Rows(i).Insert
Next i
End Sub


On Feb 18, 1:36*pm, gwc wrote:
In COL A, how can I insert a row above cells whose contents begin with
0A? *(That's a zero and an A)