Split data into multiple worksheets based upon a column in master worksheet

I have several columns and want to split the data based upon a single column into multiple worksheets.

What nathansav is getting at is we have no idea about the specifics. This code below does exactly what your posts says but I have no idea if it will actually work for you.

Sub RunMe()
Dim wksht As Worksheet: Set wksht = Sheets("Sheet1")
Dim ws As Worksheet
Dim icol As Integer

For icol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
    wksht.Columns(icol).Copy
    Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
    ws.Columns(1).PasteSpecial xlPasteAll
Next icol

End Sub