Macro - Delete row based on date

[ketchupthief]

Hello all,

I am looking to add a macro in to delete all rows with dates above a specific date (i.e. delete all rows with a date above cell A12). I'm using Excel 2003. Any advice?

 

[mirabeau]

Are the dates in increasing /decreasing order, or are they distributed some other way e.g randomly?

 

[ketchupthief]

The Macro is already set up to sort in descending order (Most current date to oldest date). I'm looking to delete all rows with dates in column B less than 1/1/2011. However, this date will be changing on a montly basis.

 

[Michael M]

Hi
This will do the trick, if the data is in column "B". However, there are a couple of questions.
What if the date is = to A12 ??
Does the column of dates run past A12, eg, B5 to B20. If so, that row needs to be skipped or the data needs to be relocated to a better location

Sub datedel()
Dim lr As Long, r As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
    For r = lr To 13 Step -1
        If Range("B" & r).Value > Range("A12").value Then Rows(r).Delete
    Next r
End Sub