Visual Basic para Aplicaciones - No Existen Celdas Visibles

Estimados, como hago para asignarle a una macro, que en el caso de que no se encuentren celdas visibles para seleccionar, me tire un msg.
Ademas necesitaría saber como hacer para que en el caso de una vez aplicados los filtros avanzados en una base mediante un código de vba no me deje seguir con un proceso.
Aguardo respuestas.
Gracias,


Private Sub Prueba_Cod()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Workbooks.Open "K:\Francisco Torre\Proyecto Mejoras Continuas\Mejoras Continuas.xlsx", Password:="2160sara"


ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=9, Criteria1:= _
"OK"
Columns("J:J").Select
Selection.SpecialCells(xlCellTypeBlanks).Select

If Selection.SpecialCells(xlCellTypeVisible).Select = False Then (Este código me da error, como lo puedo hacer)

Else
Selection.Value = "Enviado"
Application.CutCopyMode = False
ActiveSheet.ShowAllData
End If
Application.ScreenUpdating = True

End Sub

Saludos.-

primero que todo puedes contar la columna donde estan los datos principales y con la siguiente formula obtienes cuantos datos hay

Dim a
a = WorksheetFunction.Subtotal(3, Range("a:a"))

Luego evaluas si tiene datos

if a > 1 then

msgbox("Hay datos")

else

msgbox("No hay datos")
end if