Need to copy rows in Sheet1 to different worksheets

[minx2001]

I tried it and get the following error:

Run-time error '9' :
Subscript out of range

Please help (sorry about this, but as I said, I am completely new t
this).

Thank

 

[Ron de Bruin]

Hi

Set ws1 = Sheets("Sheet1")

Sheets("Sheet1") is the sheet with the data
If the sheet with the data not exist you get a error 9


Use a range like this
Set rng = ws1.Range("A1:G100")

The names in the is example must be in column A
If not change this line
rng.Columns(1).AdvancedFilter _

To
rng.Columns(3).AdvancedFilter _
If the names are in column C