Option Base 1


Sub test()

    Dim BSAAMLValue(126, 12) As Variant
    Dim i As Long, j As Long, main_count As Long
    
    'This code takes elements from a worksheet and transfers them into an 126x12 array.
    For j = 1 To 12
        For i = 1 To 126
            BSAAMLValue(i, j) = wb.Worksheets("BSA|AML").Cells(14 + (i - 1), j + 6).Value
        Next i
    Next j
    
    'This code takes those array elements and transfers them into a single column matrix. This is done using the main_count variable.
    main_count = 2
    For j = 1 To 12
        For i = 1 To 126
            mainwb.Worksheets("Import_Template").Cells(main_count, 8).Value = BSAAMLValue(i, j)
            main_count = main_count + 1
        Next i
    Next j

End Sub