Cut then paste Columns of Data into a new tab

[hgufrin]

Hi. Thanks in advance for your help.

Can you please provide me with the code to cut and paste data for each entity into a new individual tab? Also please include Column A into each tab.

There are only 3 entities here. But at times there can be 30 entities.

Sincerely appreciate your help.

 

[hgufrin]

I found this... But the problem is... it will only separate data limited to one column. My entities have two column per entity.

Sub copycols1()
Dim LC As Long, i As Long, ws As Worksheet
With ActiveSheet
LC = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To LC
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
.Columns(1).Copy Destination:=ws.Range("A1")
.Columns(i).Copy Destination:=ws.Range("B1")
ws.Name = Range("B1").Value
Next i
End With
End Sub

 

[hgufrin]

Bump... Hoping that someone can help me out.

... Hoping there is code that would put columns ACD, AFG, AIJ into its own worksheet. And keep doing this until there are not columns left.

Thanks for your help.