I think I figured it out...I need to use dummy arrays and then create a final array...Please let me know if i am on the right path or if there might be a more efficient way - I will be crunching a LOT of data...

Thanks in advance for any advice.

    Dim zeroRow() As Long
    Dim tempArr As Variant
    Dim tempIn() As Variant

    tempArr = wsData.Range("Z" & lastRowData - 6 & ":AN" & lastRowData).Value
    ReDim zeroRow(1 To 15)
    For i = 1 To 15
        zeroRow(i) = 0
    Next i
    ReDim tempIn(1 To 8, 1 To 15)
    For i = 1 To 15
        tempIn(1, i) = zeroRow(i)
    Next i
    For i = 1 To 8
        For j = 1 To 15
            tempIn(i + 1, j) = tempArr(i, j)
        Next j
    Next i