I'm trying to create a unique list from a column in a dataset. The following piece of code has run successfully, (with alterations where necessary for changes in the range, column required etc.), but now doesn't return any entries at range EB6. There definitely is data in the column 9 that I think should be returned. Can anyone see where I'm going wrong?
Code
With Sheets("Data")
.Range("EB1").EntireColumn.Delete
.Range("A6").CurrentRegion.Columns(9).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet4.Range( _
"EB6"), Unique:=True
Set rRng = .Range(.Cells(2, 132), .Cells(.Rows.Count, 132).End(xlUp))
End With
Many thanks,
K