Excel - Buscar y eliminar fila con macros

procedimitento (columna, numerosregistros, valorfiltro)  ' columna es la letra de la columna, el numero de registros a validar y el valor que necesites comparar.

for  i = 1 a  numeroregistros)

    si range(columna & i).value = valorfiltro

      eliminarfila

next i

Fin procedimiento.

For i = 1 To 300

If Range("A" & i).Value = 0 Then EntireRow.Delete ' mira que la A esta entre comillas puesto que es de la columna A y no del valor de A

Next i

For i = 1 To 300

If Range("A" & i).Value = 2016 Then

    Rows(i & ":" & i).Select

    Selection.Delete Shift:=xlUp

End If

Next i

Range("O2").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-6],Personas!C[-13],1,0)"

Range("A100000").Select

Selection.End(xlUp).Select

registro = ActiveCell.Row

Range("O2").Select

Application.Calculation = xlCalculationManual

Selection.AutoFill Destination:=Range("O2:O" & registro)

Application.Calculation = xlAutomatic

Range("O2:O" & Rows.Count).Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

           :=False, Transpose:=False

Application.CutCopyMode = False

Range("O2").Select

For fila = 1 To 300

If Cells(fila, 15).Value = Error Then

Rows(fila).Delete

fila = fila - 1

End If

Next fila