Count Values in sequence

Option Explicit
Sub test()
    Dim coll As New Collection
    Dim lastRow As Long, i As Long, count As Long, collRow As Long, outRow As Long
    Dim tVal As Variant, aValmin As Variant, aValmax As Variant
    Dim bValmin As Variant, bValmax As Variant
    '
    ' Get last data row
    '
    lastRow = Worksheets("Sheet1").Cells.Find("*", _
                                SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    '
    ' Set initial data values
    '
    outRow = 2
    aValmin = Cells(2, 1).Value
    aValmax = aValmin
    bValmin = Cells(2, 2).Value
    bValmax = bValmin
    tVal = Cells(2, 20).Value
    count = 1
    '
    ' For each row, update maximum value of T value is the same, or
    ' write out last values to collection
    '
    For i = 3 To lastRow
        If Cells(i, 20).Value = tVal Then
            aValmax = Cells(i, 1).Value
            bValmax = Cells(i, 2).Value
            count = count + 1
        Else
            coll.Add tVal
            coll.Add count
            coll.Add aValmin
            coll.Add bValmin
            coll.Add aValmax
            coll.Add bValmax
            '
            ' Reset the data values
            '
            aValmin = Cells(i, 1).Value
            aValmax = aValmin
            bValmin = Cells(i, 2).Value
            bValmax = bValmin
            tVal = Cells(i, 20).Value
            count = 1
        End If
    Next i
            '
            ' Write the last value to the collection
            '
            coll.Add tVal
            coll.Add count
            coll.Add aValmin
            coll.Add bValmin
            coll.Add aValmax
            coll.Add bValmax
    '
    ' Write out the collection
    '
    For collRow = 1 To coll.count Step 6
        ActiveSheet.Cells(outRow, 22) = coll(collRow)
        ActiveSheet.Cells(outRow, 23) = coll(collRow + 1)
        ActiveSheet.Cells(outRow, 24) = coll(collRow + 2)
        ActiveSheet.Cells(outRow, 25) = Format(coll(collRow + 3), "hh:mm:ss")
        ActiveSheet.Cells(outRow, 26) = coll(collRow + 4)
        ActiveSheet.Cells(outRow, 27) = Format(coll(collRow + 5), "hh:mm:ss")
        outRow = outRow + 1
    Next collRow
End Sub