¿Cómo seleccionar celdas con valores no nulos ("") con una macro en excel?

Hola tengo un problema, necesito automatizar el copiado de celdas de una hoja1 a una hoja2, el problema es que en la hoja1 los datos que copio son resultado de formulas en las cuales si un dato no es encontrado se coloca un valor nulo [ejemplo: =SI.ERROR(BUSCARV(C10,'Base'!$A$2:$D$900,4,FALSO),"")], pero cuando copio un rango los valores nulos ("") los toma como valor, entonces pego los valores en la hoja2 tengo filas en blanco que no las considera como vacías.

ESpero puedan ayudarme, este es el código que estoy usando:

Sub CAPTURA()
On Error Resume Next

Application.ScreenUpdating = False

Range("A2:M6").Copy

Sheets("Hoja2").Select

Range("A1048576").Select

Selection.End(xlUp).Select

Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop

Selection.PasteSpecial Paste:=xlPasteValues

Sheets("Hoja1").Select

End Sub