Problemas con la ejecución de una macro

Hola tengo una consulta:
Esta macro cuando la ejecuto me bloquea el programa Excel. BD es una base de datos con 15 registros y 17 columnas. Lo que quiero es que cuando coincidan 3 argumentos que se encuentran en las columnas 1, 10 y 14 con los valores 1,2 y 2 respectivamente, se elimine la fila entera. ¿Sera qué esta mal algún código?
Sub EliminarRegistro()
valor1 = "4"
valor2 = "098-05-04"
valor3 = "Baja"
Sheets("BD").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = valor1 And ActiveCell.Offset(0, 9).Value = valor2 _
And ActiveCell.Offset(0, 13).Value = valor3 Then
Selection.EntireRow.Delete
End If
Wend
End Sub
Gracias