count1 = "W100"buf = Array_Unique_Collection(Range("W3:" & count1).Value)you might even likecount1 = 10buf = Array_Unique_Collection(Range("W3:W" & count1).Value)