Remove_Missilng.vba

Sub Remove_Missing()

'Set the range to evaluate to rng.
Set Rng = Range("E2:E20001")  'Rng holds the Range object

'initialize i to 1
i = 1

For counter = 1 To Rng.Rows.Count  'number of rows

   If Rng.Cells(i).Value = "NA" Then
 
       Rng.Cells(i).EntireRow.Delete

   Else

       i = i + 1  'why do we use i instead of counter?

   End If

Next counter

End Sub