нужно чтобы сакрос продалжал поиск по заданному параметру

[SamW]

Помогите, пожалуйста начинающему
Есть макрос, который по заданному параметру ищет определнную ячейку и доб. после нее новый столбец. Но на этом все и заканчивается, а нужно чтобы он и дальше искал такую ячейку и после нее доб столбец (как минимум 7 штук). Как дописать или что нужно добавить. Вот макрос
Sub GG()

Dim lLastRow As Long
Dim lLastColumn As Long

x_text = "Среднее*"


Cells.Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Selection.EntireColumn.Select
Selection.Insert Shift:=xlToLeft

End Sub

[Казанский]

F1 - Range.FindNext Method . Там пример есть. Или по форуму поищите FindNext.