Find text and clear contents of another cell

[Migaspt]

Hello guys,

I'm trying to create a code that has to be run manually.

It should search for the word "total" in column A and clear the contents of the cells in columns K and L in the same row.

I tried searching and using bits of others codes I saw here but I can't seem to find anything useful.

Thanks in advance!

 

[Momentman]

By the way, I also found that this one works:

Sub FindTotalClear()Range("A9").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1).Select
If Right(ActiveCell, 5) = "Total" Then
ActiveCell.Offset(0, 10).ClearContents
ActiveCell.Offset(0, 11).ClearContents
End If
Loop
End Sub

Sure, it should.

Neater this way

Sub FindTotalClear()
    Range("A9").Select
    With ActiveCell
        Do Until .Value = ""
            .Offset(1).Select
            If Right(.Value, 5) = "Total" Then
                .Offset(0, 10).ClearContents
                .Offset(0, 11).ClearContents
            End If
        Loop
    End With
End Sub