I have a sheet of data on sheet1 which contains duplicates. On sheet 2 I have extracted a list of unique values with the Advanced Filter:

```
lr = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Data").Range("F2:F" & lr).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=NewSh2.Range("B4"), Unique:=True

```

This works fine however I would like it to only return values which partly match another cell (This is a drop down box in K2 -
eg, if AA is selected in the box only values that start with AA are returned.)

I'm new to VBA and I'm not sure of the best way to go about doing this - (I had considered just deleting values which didn't match, which would create blanks, then to remove the blank rows - however I am concerned this would be a bit overkill and process heavy?) - is there a neater way to achieve this?

Thanks in advance!

Edit: Detail added.

So the dropdown in K2 has AA, BB, CC

The list of unique values looks something like:

```
 AA01
 AA02
 AA03
 BB02
 BB03
 AA05
 CC01
 CC02
 CC03
 CC05
 BB04

```

When the drop down has selected **AA** I would like the list to only return:

```
AA01
AA02
AA03
AA05

```