Sub insert4()
dim lastrow as long, i as long
lastrow = cells(rows.count,"G").End(xlup)
for i = lastrow to 1 step - 1
if right(lcase(cells(i,"G").Value),3) = lcase("abc") then
cells(i,1).offset(1,0).resize(4).Entirerow.Insert
end if
Next

--
Regards,
Tom Ogilvy



End Sub
"KENNY" wrote in message
...
Thanks for responding... If I could bother you for a bit
mo

1. To make it more efficient, I just need it to look
through column G

2. The text I'm looking for is actually the last three
letters of the text that appears in that column (Right, 3).

If I'm not over-stepping, could you help?

TIA



-----Original Message-----
Sub insert4()
dim lastrow as long, i as long
lastrow = cells(rows.count,1).End(xlup)
for i = lastrow to 1 step - 1
if cells(i,1).Value = "certain text" then
cells(i,1).offset(1,0).resize(4).Entirerow.Insert
end if
Next

End Sub


--
Regards,
Tom Ogilvy

"KENNY" wrote in
message
...
I'd like to insert four rows after certain text appears
in
a column.

Any ideas?

TIA


.