Ya puedo eliminar las filas...pero quiero limitar las columnas

Application.ScreenUpdating = False
For f = [A65536:G65536].End(xlUp).Row To 1 Step -1
If Cells(f, 9) = "" Then Rows(f).Delete
Next
Application.ScreenUpdating = True

Hola al grupo,
Dim f As Integer
Application.ScreenUpdating = False
For f = [A65536].End(xlUp).Row To 1 Step -1
If Cells(f, 9) = "" Then Rows(f).Delete
Next
Application.ScreenUpdating = True
con este código he podido eliminar filas sin embargo... 2 preguntas
1. Necesito eliminar las filas donde existan números...he tratado con el
código anterior eto y no funciona -If Cells(f,9) ="##" ó If Cells(f,9)
=("##")...pero no funciona
2. Solo quiero eliminar estas filas desde la columna A hasta G ..por ej...

Agradezco la ayuda