Reset the Used Range

My macro runs a loop on the used range.

However, if the used range is originally 150 rows, but then I delete a lot of the data and make it 50 rows, it will still run through the original usedrange.

Anyone know how to fix this? It wouldn't be a problem except for the fact that this is a very slow code as it is.

gtg
The used range is not the mose reliable element in excel. You are probably better off by working out the range programatically.
Here's an example how.

VB Code:

Dim rngStart As Range
Dim rngEnd As Range
Dim rngDataArea
    
    'Just a demo starting position
    Set rngStart = Worksheets(1).Range("b2")
    Set rngEnd = rngStart.End(xlDown).End(xlToRight)
    Set rngDataArea = Worksheets(1).Range(rngStart, rngEnd)
    MsgBox rngDataArea.Cells.Count