Insert a row above a certain cell

[minrufeng]

I am working hard on this simple problem (I think it's not difficult to
implement): insert a row above a certain

cell, for example, the value of the cell is "Total Revenues" using
Macro. Does anyone of you know how to do this?

Thanks a lot for your great help!

 

[Jim May]

Using the Macro recorder:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/20/2006 by Jim May

Cells.Find(What:="Total Revenue", After:=ActiveCell, LookIn:=xlFormulas,
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Insert
End Sub

 

[minrufeng]

Cells.Find("Total Revenues").EntireRow.Insert