Function Num_2(matA As Range, matB As Range)
Dim i&, n&, a(), b(), v#()
a = matA.Value2: b = matB.Value2
ReDim v(1 To UBound(b))
For i = 1 To UBound(b)
If IsNumeric(a(i, 1)) And CStr(a(i, 1)) <> "" Then
If IsNumeric(b(i, 1)) And CStr(b(i, 1)) <> "" Then n = n + 1: v(n) = a(i, 1)
End If
Next
ReDim Preserve v(1 To n): Num_2 = v
End Function