read sheets of a workbook and then copy rows from each based on criteria

Hello All
I have a workbook with many worksheets
I need a macro to read all sheets and any new sheet added,
then based on what data on column A, it should create a new sheet and copy the rows
example

.... | S1 | S2
---------------
A1 | ST | ST
---------------
A2 | CA | CA
A3 | CA | TX
A4 | NY | AZ
where S1: Sheet 1, S2: Sheet 2, ST: Title of the column
I want to copy all CA rows to a new sheet called CA, All TX to TX sheet and so on...
could anyone please help me