Как разбить выбранные столбцы на листе Excel на один большой столбец, только выбранный

Question

Этот вопрос соответствует следующему:

Visual Basic переместите все остальные столбцы, чтобы создать один длинный столбец B

Я использовал лучший ответ:

sub ss()
    Dim col As Range

    For Each col In Worksheets("Sheet1").Columns
        If (col.Column > 1 And col.Column < 171) Then
            Range(col.Rows(1), col.Rows(15)).Select
            Selection.Cut
            'Select cell at bottom of A
            ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
            ActiveSheet.Paste   'Paste
        End If
    Next col
End Sub

Теперь это работает, но все столбцы таблицы Excel разбиваются на один столбец.Я хочу сделать это только для выбранных столбцов при запуске макроса, а не для всего листа.

Возможно ли это?Как?

Answer 1

Как это?

Sub Sample()
    Dim col As Range
    For Each col In Selection.Columns
        If col.Column > 1 And col.Column < 171 Then
            Range(col.Rows(1), col.Rows(15)).Select
            Selection.Cut
            ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
            ActiveSheet.Paste
        End If
    Next col
End Sub