This code should find a certain cell, drop down one row, and insert a new
blank row:
wb1.Activate
Columns("C:C").Select
Selection.Find(What:="D000368", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(1, 0).Activate
Selection.EntireRow.Insert

The debugger didn't want to insert the row, telling me it couldn't shift
data off the page. I have plenty of room below my last row, so I'm assuming
that when I took it from the recorder to here and put in my parameters, I
coded something wrong. (Just a wild guess, you understand ... 8} ).
Any help is appreciated.

Ed