Option Explicit

Sub Собрать_столбцы_В()
Dim Sht As Worksheet, Counter As Long, LastCol As Long

    With Worksheets("Общий")
        LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column 'номер последнего столбца
        .Cells.Clear 'удаляем данные со всего листа Общий (если НЕ надо удалять, то закомментируйте)
    End With
    
    'Counter = LastCol 'если надо добавлять столбцы правее, то раскомментируйте эту строку
     
    For Each Sht In ActiveWorkbook.Worksheets
        If Sht.Name <> "Общий" Then
            Counter = Counter + 1
            Sht.Columns(2).Copy Worksheets("Общий").Cells(1, Counter) 'копируем столбец В на лист Общий
        End If
    Next Sht
    MsgBox "Копирование столбцов В завершено!", vbInformation, "Конец"
End Sub