Verificar celdas vacías

Hola nuevamente Elsa, aquí molestando otra vez, espero poder contar nuevamente con tu ayuda.
Así quedo finalmente la macro con la que me ayudaste solo queda un ultimo detalle a corregir y, disculpa mi ignorancia, no sé cómo:
Sub general()
Dim fila1 As Integer, fila As Integer
Dim ultimacol As Integer, ultimafila As Integer
Dim tot1 As Long, tot2 As Long, tot3 As Long, tot4 As Long
Dim pv1 As Long, pv2 As Long, pv3 As Long, pv4 As Long
Dim v1 As Long, v2 As Long, v3 As Long, v4 As Long
fila1 = 6
Sheets("General").Select
'busca la ultima columna
If WorksheetFunction.CountA(Cells) > 0 Then
ultimacol = Cells.Find(what:="*", after:=[a1], searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
End If
'busca la ultima fila
If WorksheetFunction.CountA(Cells) > 0 Then
ultimafila = Cells.Find(what:="*", after:=[a1], searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End If
'busca operaciones invalidas y deja en blanco la celda
For fila = fila1 To ultimafila - 1
If IsError(Cells(fila, ultimacol).Value) Then
If Cells(fila, ultimacol).Value = CVErr(xlErrDiv0) Then
Cells(fila, ultimacol).Value = ""
End If
End If
Next fila
'busca rangos para hacer las sumas
For fila = fila1 To ultimafila - 1
If Cells(fila, ultimacol).Value <= 0 Then
tot1 = tot1 + Cells(fila, ultimacol - 4).Value
pv1 = pv1 + 1   aqui a la hora que cuenta todas las celdas que tenga el valor a cero o  menor que este, también esta incluyendo las celdas vacias, ¿cómo puedo hacerle para que no cuente las vacías?
v1 = v1 + Cells(fila, ultimacol - 1)
Else
If Cells(fila, ultimacol).Value >= 0.01 And Cells(fila, ultimacol).Value <= 0.494 Then
tot2 = tot2 + Cells(fila, ultimacol - 4).Value
pv2 = pv2 + 1
v2 = v2 + Cells(fila, ultimacol - 1)
Else
If Cells(fila, ultimacol).Value >= 0.495 And Cells(fila, ultimacol).Value < 0.705 Then
tot3 = tot3 + Cells(fila, ultimacol - 4).Value
pv3 = pv3 + 1
v3 = v3 + Cells(fila, ultimacol - 1)
Else
If Cells(fila, ultimacol).Value > 0.7055 Then
tot4 = tot4 + Cells(fila, ultimacol - 4).Value
pv4 = pv4 + 1
v4 = v4 + Cells(fila, ultimacol - 1)
End If
End If
End If
End If
Next fila
MsgBox tot1 & " " & tot2 & " " & tot3 & " " & tot4
MsgBox pv1 & " " & pv2 & " " & pv3 & " " & pv4
MsgBox v1 & " " & v2 & " " & v3 & " " & v4
End Sub
Muchas Gracias y Saludos, Andrea