Find value and then reference cell 2 above

[Nerdalert314]

Good afternoon,

Sorry if this is repeated by I'm not even sure how to work this.

I have a call that has the value "Total Cash". I am using this to find the cell. I can also use find and replace.

    Cells.Find(What:="TOTAL CASH", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

I then want to remove "TOTAL CASH" and put it in the cell 2 above it. My attempt at this did not work.

ActiveCell.Offset(-2, 0).Range("A1").ActiveCell.FormulaR1C1 = "TOTAL CASH"

Any suggestions?

 

[JoeMo]

Sub TotalCash()
Dim Found As Range
Set Found = Cells.Find(What:="TOTAL CASH", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    If Not Found Is Nothing Then Found.Offset(-2, 0).Value = "TOTAL CASH"
End Sub