Hello, the following seems like I could use ReDim statement. I am looping/counting through a vertical range and stopping when the value in the cell to the left = a particular time, then using that count I set the range. (This is part of a bigger loop) The challenge is the Count will vary with each iteration. Is there any way using redim to assess the number in range?

[VBA]Dim TestOffset As Long, TimeT As Long ' I've reformatted time as integer

Do Until ActiveCell(1, 0).Value > (TimeT + TestOffset) - 1
ActiveCell.Offset(1, 0).Select
Count = Count + 1
Loop
ActiveCell.Offset(-Count, 0).Select
Set rng1 = Range(ActiveCell, ActiveCell.Offset(Count))[/VBA]

Many thanks.......RO