Copiar datos a otra hoja desde una macro, con valor de condición.

con este código copio los datos a otra hoja si encuentra el indicado, lo que pasa que el valor que tengo en la celda es atraves de la formula (CONTAR.SI), entonces no me toma el valor:

Sub copia()
Set H1 = Sheets("Hoja1")
Set H2 = Sheets("DatosGuardados")
uf = H2.Range("A" & Rows.Count).End(xlUp).Row
reg = "FALSO" '--------------> ese valor
For i = 2 To H1.Range("F" & Rows.Count).End(xlUp).Row
If H1.Cells(i, "F") = reg Then
uf = uf + 1
H1.Range("a" & i & ":" & "d" & i).Copy H2.Range("a" & uf)
H1.Range("a" & i & ":" & "d" & i).ClearContents
End If
Next
End Sub

Ese valor se encuentra en la celda, pero se transforma de acuerdo a la formula contar.si, como debo hacerlo.

Saludos y muchas gracias.