Macro_Suma

Hola.
La siguiente macro con la que tu me ayudaste fubciona perfectamente, pero sucede que ahora se me presento lo situación en la cual, dentó del rango que hay que sumar existen celdas con texto, necesito que si la macro al realizar la suma encuentra una o más celdas con texto las omita, pues como esta me presenta error.
Muchas gracias por tu tiempo e interés
Sub Suma_Comprobante()
Dim i As Integer, Suma As Double, Suma2 As Double
Suma = 0
For i = 6 To ActiveCell.Row - 1
Suma = Suma + ActiveSheet.Cells(i, 4).Value
Next i
'si además te debe mostrar el total dejá la que sigue
Cells(i + 0, 4).Value = Format(Suma, "#,##0")
Suma2 = 0
For i = 6 To ActiveCell.Row - 1
Suma2 = Suma2 + ActiveSheet.Cells(i, 5).Value
Next i
Cells(i + 0, 5).Value = Format(Suma2, "#,##0")
If Suma <> Suma2 Then
Resultado = MsgBox("Comprobante descuadrado", , "Edinson Sabogal")
End If
End Sub