I have a macro that works, but I know isn't the most efficient way to do it. I want to search column G starting at row 11 for "GT123" or "GT456" and clear the contents of cells J through AI. There will be 600 to 700 rows of data everytime I run this report. What is a better way of doing this? Thanks for any help you can offer.

Dim wks As Worksheet
Dim rngToSearch As Range
Dim rngFirst As Range
Dim rngCurrent As Range

Set wks = ActiveSheet
Set rngToSearch = wks.Range("G11:G700")
Set rngCurrent = rngToSearch.Find("GT*", , , xlWhole)
If Not rngCurrent Is Nothing Then
Set rngFirst = rngCurrent
Do
rngCurrent.Offset(0, 3).ClearContents
rngCurrent.Offset(0, 4).ClearContents
rngCurrent.Offset(0, 5).ClearContents
rngCurrent.Offset(0, 6).ClearContents
rngCurrent.Offset(0, 7).ClearContents
rngCurrent.Offset(0, 8).ClearContents
rngCurrent.Offset(0, 9).ClearContents
rngCurrent.Offset(0, 10).ClearContents
rngCurrent.Offset(0, 11).ClearContents
rngCurrent.Offset(0, 12).ClearContents
rngCurrent.Offset(0, 13).ClearContents
rngCurrent.Offset(0, 14).ClearContents
rngCurrent.Offset(0, 15).ClearContents
rngCurrent.Offset(0, 16).ClearContents
rngCurrent.Offset(0, 17).ClearContents
rngCurrent.Offset(0, 18).ClearContents
rngCurrent.Offset(0, 19).ClearContents
rngCurrent.Offset(0, 20).ClearContents
rngCurrent.Offset(0, 21).ClearContents
rngCurrent.Offset(0, 22).ClearContents
rngCurrent.Offset(0, 23).ClearContents
rngCurrent.Offset(0, 24).ClearContents
rngCurrent.Offset(0, 25).ClearContents
rngCurrent.Offset(0, 26).ClearContents
rngCurrent.Offset(0, 27).ClearContents
rngCurrent.Offset(0, 28).ClearContents

Set rngCurrent = rngToSearch.FindNext(rngCurrent)
Loop Until rngCurrent.Address = rngFirst.Address
End If