Looping through rows

[krice1974]

Hey there all, I'm working out of the book, and I'm close to what I need but at a beginner's block. I want to delete all rows of a table of stock information where the symbol (column b) contains a "." Here's what I've got:

Sub Earnings_SymbsClnUp()
'Deletes the newly posted trades that have a "." in the symbol.

Dim finalrow As Integer


Dim i As Integer
finalrow = Cells(Rows.Count, 1).End(xlUp).row - 8
MsgBox finalrow

For i = finalrow To 9 Step -1
If Cells(i, 2).Value = "ITRA" Then
Cells(1, 2).EntireRow.delete
End If
Next i

End Sub

 

[krice1974]

Perfect! I love vba even though I'm lost. With help this good, I'm going to get lazy with my reading/studying it. Thanks to all.