Function to return range of unique values

[thequickness]

I have a Column(H) that is 2000+ rows large, and will increase as I add more data. In this Columns there is only 4 unique values. Ex: H2:H600 = AAA, H601:H1200 = BBB, H1201:H1800 = CCC, and so on....

How do I get the range returned to a variable of all of the AAA, and BBB, and CCC.

dim searchRange as range
searchRange = rngCheck


function rngCheck() as Range

dim lastRow = activesheet.range("H10000").End(xlUp).row

for i = 2 to lastRow
....get my AAA range here...
next i
end function

 

[Fluff]

What are your unique values?

 

[thequickness]

Technically they are time stamps 4/19/2019 07:50:22 is the fist that goes from h2:h2685, but I won't know the time stamps, or the range end. The next is 4/19/2019 07:49:23, 4/19/2019 07:47:32 and 4/3/2019 10:10:12

 

[thequickness]

opps h2:h685^^^

 

[Fluff]

How about

Sub thequickness()
   Dim UsdRws As Long, i As Long
   Dim ary(1 To 4) As Range
   
   
   With ActiveSheet
      UsdRws = Range("H" & Rows.Count).End(xlUp).Row
      For i = 1 To 4
         If i = 1 Then
            Set ary(i) = Range("H2")
         Else
            Set ary(i) = ary(i - 1).Offset(ary(i - 1).Count)(1)
         End If
         .Range("H1:H" & UsdRws).AutoFilter 1, CStr(ary(i).Value)
         Set ary(i) = .AutoFilter.Range.Offset(1).Resize(UsdRws - 1).SpecialCells(xlVisible)
      Next i
      .AutoFilterMode = False
   End With
End Sub