Insert row

G

gwc

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

Don Guillett

'========
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Shift cells right 1
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Unique cells 3
Shift cells 1
Insert row above cells containing data 4
Insert ROW above a cell containing data 1
Finding matching cells 1
Finding matching cells 1

Top