Normally I would use On Error but I want to find out why this doesn't work:
In column A, put some values in cell A1 to A6, ensuring at least one value is zero.
Dim MyArray() As Variant
MyArray() = Cells(1, 1).CurrentRegion.Value
Dim i, j
For i = 1 to 6