Create new worksheet for each set of unique values

I am looking to try to create a macro that will be able to create a new worksheet with naming schema and copy and paste all rows of a table based on the unique value in column A. I would like the naming schema to be based on that unique value with a table. Attached is a worksheet that will create the new worksheets(run Regionwks on the unique worksheet) , but I cannot figure out how to copy and paste those unique rows in the Main worksheet to the new worksheet.