Macro to create new sheets based on column

[Siddhu11011]

I have numbers or text in column A and want to create new sheets based on cells available in that column. New sheets name must be unique (unique values from column A).
Bring the number of rows along with header for that particular cell without removing duplicates in respective sheet. Please see below snapshots

Thanks for reading my query and would be happy if you can help....
Note: Table size is not constant; columns and rows get changing all the time

 

[Osvaldo Palmeiro]

Hi.
For the example you've posted try the code below. The number of rows with data can vary, and the code will detect it, but about the variation of the number of columns with data we need to see some relevant examples.

Sub NewSheets()
 Dim evnt As Long, k As Long
  Application.ScreenUpdating = False
  With Sheets("Data")
   For evnt = 2 To .Cells(Rows.Count, 1).End(3).Row
    k = Application.CountIf(.[A:A], .Cells(evnt, 1))
     Sheets.Add(, Sheets(Sheets.Count)).Name = .Cells(evnt, 1)
     [A1].Resize(, 3) = Array("Event", "Account", "Qty")
     [A2].Resize(k, 3) = .Cells(evnt, 1).Resize(k, 3).Value
     evnt = evnt + k - 1
   Next evnt
  End With
End Sub