unique values (range) to create new sheets

Hi,

Background:
within the range H5-H1000 of the sheet ABC there are different or recurring statements.

With this unique values i want to start the following procedure:

1. take only the unique values out of this range; exclude empty-cells
2. within the current excel-document, the following tasks have to take place:

a) Sheets("ABC").Copy After:=Sheets(Variable)
b) Sheets("ABC (Variable)").Name = "Unique Value"
c) Selection.AutoFilter Field:=8, Criteria1:="Unique Value"

Description:
b = new sheets with sheet-labels of every unique value out of the already mentioned range
c = the value for "Criteria1" has to be the same name as the corresponding sheet-label. Task c has to be executed for every new sheet (except the sheet ABC)

Who can support me with the VB-Code for task 1, respectively the loop to complete tasks a-c ?

thanks in advance

Frank