VBA Needed to Create New Sheet With Data in Workbook for Each Team in Column A

I receive an excel file each week which I have to create a sheet for each Team along with the data, and name the tab according to the Team.

So for instance, my steps each week are as follows:
1) From the 'All Data' sheet, filter column A for 'Carter Team',
2) Copy the visible rows including the header,
3) Paste this data to a new sheet within the workbook (paste at top, starting in A1),
4) Rename the sheet to 'Carter Team'.
5) Go back to the 'All Data' sheet and repeat until all teams have an separate tab.

I do these steps for each team in column A which varies from 7 to 11 teams per week. I would like code for doing these steps but unsure of the code since the number of teams vary and don't want a tab for a team if there is no data for that week.

Information about the 'All Data' sheet:
- Row 3 is the Header (column A thru column AP)
- Data starts in row 4
- Teams are in column A (number of teams vary)
- Last row of data varies
Note: There may be instances where a row does not have a team assigned in column A so team is blank (rare but happens). There is data in every row in column K.

Your knowledge and help is appreciated!

Here is code that I use to do that task - this is based on splitting by column A, with headers in the first row of the current region based on A3 (so, at least, row 2 should be fully blank or emptied before running the code)

Please Login or Register  to view this content.

No sample file so untested...

Please Login or Register  to view this content.

Without sample file...okie dokie...Glad to have contributed...Tx for rep +