With ActiveSheet.Range("A7:b9")
Set rebut = .Find("rebut")
If Not rebut Is Nothing Then
firstAddress = rebut.Address
Do
Set rebut = .FindNext(rebut)
Range(.Offset(0, 1), .Offset(0, 2)).ClearContents
Loop While Not rebut Is Nothing And rebut.Address <> firstAddress
End If
End With