By row of columns, I assume you mean there are a number of columns next to each other.

This custom macro will do it for you. just click in the source range and then run the macro

Sub SingleColumn()
    Dim myRange As Range
    Dim newBook As Workbook
    Dim ThisBook As Workbook
    Dim myCols As Integer
    Dim myRows As Integer
    Dim C As Integer
    Dim R As Integer
    
    Set myRange = Selection.CurrentRegion
    myCols = Selection.CurrentRegion.Columns.Count
    myRows = Selection.CurrentRegion.Rows.Count
    Set ThisBook = ActiveWorkbook
    Workbooks.Add
    Set newBook = ActiveWorkbook
    ThisBook.Activate
    For C = 1 To myCols
        myRange.Range(Cells(1, C), Cells(myRows, C)).Copy
        newBook.Activate
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Selection.End(xlDown).Offset(1, 0).Select
        ThisBook.Activate
    Next C
End Sub