Visual Basic - Eliminar una linea de excell con visual

Buenas, tengo una hoja excell la cual tiene varias columnas y en la tercera columnas depediendo de la segunda columna tiene algunos sumatorios, lo que yo quiero es que me borra todas aquellas lineas donde en la columna A tenga texto, para ello he utilizado la sentencia
With ThisWorkbook
.Sheets(nombreHojaPS).Row(i).EntireRow.Delete
End With
pero no funcion alguien me ayuda????.

Agradeciendoles por anticipado.