Macro to Add Sheets

[flupsie]

I have data on sheet "Imported Data" containing branch names in Col J.


I have tried to write code to create a new sheet if it does not already exist, based on each of the unique branch names in Col J and to copy the data pertaining to each branch (Col A:COL J) to the respective sheet that was added

I get subscript out of range when running the code


I have attached my sample data


It would be appreciated if someone could kindly assist me

[protonLeah]

Please Login or Register  to view this content.

[flupsie]

Thanks for the help Ben

I now come up with Next without for and cannot seem to be able to resolve this

Kindly check & amend

[jolivanes]

Another possibility

Please Login or Register  to view this content.

[flupsie]

Thanks for the help. Code works perfectly

[protonLeah]

Please Login or Register  to view this content.

[flupsie]

Thanks for the help.


How do amend the code, so that the sheets are added after "Imported data" sheet ?

[protonLeah]

Sheets.Add(After:=sheets("Imported data")).Name = K

[flupsie]

Thanks very much