VBA to find last filled cell in a row, then copy

[Minerva7]

I'm looking for VBA to find the last filled cell in a row, then copy the value in that cell. I'm asking Excel to look for the word "TOTAL," in column "A," then move to the right to look for the last filled cell in that row. Any suggestions would be greatly appreciated as I'm kind of stuck at the moment.

Thanks in advance.

 

[Fluff]

How about

Sub Minerva()
   Dim Fnd As Range
   
   Set Fnd = Range("A:A").Find("Total", , , xlWhole, , , False, , False)
   If Not Fnd Is Nothing Then Cells(Fnd.Row, Columns.Count).End(xlToLeft).Copy
End Sub