Даны квадратные матрицы A и B. Получить матрицу D, вставив столбцы матрицы B между столбцами матрицы A.

Sub main()
Dim arrA() As Single, arrB() As Single, arrD() As Single
Dim i As Byte, j As Byte, n As Byte, m As Byte, DCountA As Byte, DCountB As Byte
n = InputBox("n"): m = InputBox("m")
ReDim arrA(1 To n, 1 To m), arrB(1 To n, 1 To m), arrD(1 To n, 1 To 2 * m)
For i = 1 To n
    For j = 1 To m
    arrA(i, j) = Int(100 * Rnd - 50): Cells(i, j) = arrA(i, j)
    arrB(i, j) = Int(100 * Rnd - 50): Cells(i + 1 + n, j) = arrB(i, j)
    Next j
Next i
DCountA = 0: DCountB = 0
For i = 1 To 2 * m
    If i Mod 2 <> 0 Then
        DCountA = DCountA + 1
        For j = 1 To n
            arrD(j, i) = arrA(j, DCountA)
        Next j
    Else
        DCountB = DCountB + 1
        For j = 1 To n
            arrD(j, i) = arrB(j, DCountB)
        Next j
    End If
Next i
 
For i = 1 To n
    For j = 1 To 2 * m
        Cells(i + 2 + 2 * n, j) = arrD(i, j)
    Next j
Next i
 
End Sub