Find "Total" and move one cell to left and copy down information

[adgjqetuo]

I'm looking for someone to help me edit this code some. I need it to look in column "F" and find cells which say <####> and "Total" (IE a subtotal row). If it finds that, then offset one cell to the left and copy the cell that is directly above it.

Sub Test()
Dim lngrow as long
lngRow = Range("I4").End(xlDown).Row
Do While lngRow > 0
    If Cells(lngRow, 6).Value Like "*Total" Then
    ActiveCell.Offset(-1, 0).Select
    Selection.FillDown
    End If
    lngRow = lngRow - 1
Loop
End Sub

Thanks!