Цикл VBA, чтобы удалить последние столбцы и поместить их в нижней части другого столбца

Question

Я работаю над тем, чтобы взять переменное число столбцов и переменное количество строк, и пытаюсь сделать цикл, чтобы взять последнюю группу и поместить их в первую группу, пока все группы не окажутся в строках друг под другом.В настоящее время получаю «Ошибка времени выполнения 5». Недопустимый вызов процедуры или аргумент с последней строкой. Я все еще новичок в VBA, поэтому я не уверен, что происходит не так ... Любая помощь будет принята с благодарностью.

Sub Macro2()
'

Dim LastRow As Long, LastColumn As Long, Requests As Integer, lastCarr As Integer
'index = 0

    Requests = Application.InputBox(prompt:="Enter the number of request columns exported:", Title:="Input Value", Default:=7, Type:=1)


    Responses = Application.InputBox(prompt:="Enter the number of response columns exported:", Title:="Input Value", Default:=7, Type:=1)

Do
    LastColumn = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
    LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

    If LastColumn = Responses + Requests Then
        Exit Do
    End If

    index = index + 1

    lastCarr = 1 + LastColumn - Responses

    ActiveSheet.Range(ActiveSheet.Cells(1, lastCarr), ActiveSheet.Cells(1, lastCarr).End(xlUp).End(xlLeft)).Copy Destination:=ActiveSheet.Cells("A" & LastRow + 1).Offset(0, Requests)

Loop Until index = 80

End Sub