Hi

Replace
Code:
ReDim arrOutput(1 To UBound(Data, 2) * 35, 1 To 10)
with

Code:
ReDim arrOutput(1 To UBound(Data, 1) * 35, 1 To 10)