Looping, which one to use

[Josh_123456]

I have data in column D thru G that needs to be calculated based on column A. However, column A contains both text and a number ex..(Fiesta 2 oz). How can I get a code to loop through all the rows that contain the word Fiesta in column A. Right now I am currently using the For next loop. Where x = 8 to 18 and next x. However this is very inconvenient when I have to insert or delete a row causing me to go back and change everything. Could someone please shed some light. Thanks greatly

Josh

[anilsolipuram]

Try this macro

Sub Macro1()

Dim k As Integer
k = 1

k = 1
' K1 = 1
ini = ""
Columns("A:A").Select
While ActiveCell.Address <> ini Or k = 2
On Error Resume Next

Selection.Find(What:="anil", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate


If Err.Description <> "" Then

Err.Clear
GoTo a:
Else
If ini <> ActiveCell.Address Then
' your code to calculate value from d through G
Range(ActiveCell.Offset(0, 6).Address).Value = "testing"
End If
If k = 1 Then
ini = ActiveCell.Address
End If
k = k + 1
K1 = K1 + 1
'MsgBox K1
End If
Wend
a:

End Sub