Copy Data from Column and Paste to Next Blank Column on 2nd Sheet

You could try this

Option Explicit

Sub CopyColumnBandPasteToFirstFreeColumnSheet2()
    Dim LastRow  As Long, PasteToCol As Long
    
    LastRow = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
    Sheet2.Cells.Columns.Hidden = False
    PasteToCol = Sheet2.Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Sheet1.Range("B1:B" & LastRow).Copy Sheet2.Cells(1, PasteToCol)
    Sheet2.Cells(1, PasteToCol) = Sheet2.Cells(1, PasteToCol) & Space(1) & PasteToCol - 1
    Sheet1.Range("B2:B" & LastRow).Clear
    With Sheet2
        .Range(.Cells(1, 2), .Cells(1, PasteToCol)).EntireColumn.Hidden = True
    End With
End Sub

This will
1/. Copy Sheet1.Columns("B") to Next free column in Sheet2
2/. Number the Column Header Answer 1, 2, 3, etc
3/. Hide all columns with answers
4/. Finally clear the answers from Sheet1

Hope this is of some help.

Thanks for the help. I ended up going with teh first solution seemed simpler. Though I'd still like to add 1 mor eline that clears the responses on Sheet 1 range b1:b20