Here is my code it should find the only cell in Sheet 3 that contains the words ie: "Total Joe Painting"

After it copy the cell 2 to the right of it. However that is not the problem right now when I change the value of Sheet1.Cells(2,2) it does not correctly go to that field instead it still only finds the first cell with Total.

Sub SearchRetainage()

    Worksheets("Sheet3").Activate
    Cells.Find(What:="Total " & Sheet1.Cells(2, 2).Text, After:=Sheet3.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    
End Sub