Create new worksheet for each set of unique values

[popfan]

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.

[arlu1201]

Your way of getting the solution will work as well, though you will need to use the autofilter and the unique list that you have ready. I have worked out a different method which does not use autofilter but solves your issue. Try this code -

Option Explicit
Dim lrow As Long
Dim i As Long
Dim SName As Variant

Sub copy_rows()

Application.ScreenUpdating = False

With Worksheets("Main")
lrow = .Range("A" & Rows.Count).End(xlUp).Row

    For i = 2 To lrow
        SName = Trim(.Range("A" & i).Value)
        If Not Evaluate("ISREF('" & SName & "'!A1)") Then
            Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = SName
            .Range("A1:H1").Copy Worksheets(SName).Range("A1")
        End If
            .Range("A" & i & ":H" & i).Copy Worksheets(SName).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Next i
End With

Application.ScreenUpdating = True
End Sub

[popfan]

Thanks!! Perfect.