Insert a new row of data whenever a cell in a colmn equals "R"

[bat18]

Hi

I am looking to insert a row every time any cell in column A = R

This will happen around 50 times.

The inserted row will need to have an R in column A and the number 349273 in column B.

Any help on this would be greatly appreciated.

Cheers

 

[SteveO59L]

What other entries will be in col A?

 

[bat18]

Column A consists of R's or blanks. Whenever an R appears i need a row inserting above it with another R put in the new row in column A and the number 349273 in the corresponding cell in column B

Thanks

 

[SteveO59L]

Something along the lines of

Dim i As Long
Dim LASTROW As Long

LASTROW = Cells(Rows.Count, 1).End(xlUp).Row

For i = LASTROW To 1 Step -1
If InStr(Range("A" & i).Value, "R") Then
Range("A" & i).EntireRow.Insert Shift:=xlDown
Range("A" & i).Value = "R"
Range("A" & i).Offset(0, 1).Value = 349273
End If
Next i

 

[bat18]

Thanks very much