Contar diferencias en macro de comparación.

Tengo una macro que realiza varias funciones, esta al presionar el "boton" jala 2 archivos *.txt, los separa en columnas, copia la primer columna de ambos archivos, los pega en una tercera hoja y los compara, pone en color verde los renglones que están presentes en ambas columnas y en rojo el renglón que no se encuentre en alguna de las dos columnas, mi pregunta es:¿Existirá alguna forma de que se puedan contar los renglones que se marquen en rojo? Es decir, si en la columna "A" hay tres renglones que no existen en la columna "B" y viservesa, que cuente, sume y muestre el total de renglones en una celda determinada.

Esta es la macro que utilizo para realizar la comparación en ambas columnas (es una de ellas):

Range("D3:D20000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MATCH(D3, $B$3:$B$20000, 0) > 0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.FormatConditions(1).Borders(xlRight)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub