Sub loopArray()
Dim arr1(), arr2(), i&, j&, k&, n&
arr1 = Range("A1:B" & Range("B" & Rows.Count).End(xlUp).Row)
For i = LBound(arr1) To UBound(arr1)
If IsNumeric(arr1(i, 1)) Then n = n + 1
Next i
ReDim arr2(1 To n, 1 To 2)
k = 0
For i = LBound(arr1) To UBound(arr1)
If IsNumeric(arr1(i, 1)) Then
k = k + 1
For j = 1 To 2
arr2(k, j) = arr1(i, j)
Next j
End If
Next i
[d1].Resize(UBound(arr2, 1), UBound(arr2, 2)).Value = arr2
End Sub