VBA Macro

[pomereng]

I am working on a macro and VBA Coding and am in need of some help.

The code I have so far, which works, is
Rows(2).Select
Selection.Copy

Range("A1").End(xlDown).Offset(2, 0).Select
ActiveSheet.Paste

Pretty self explanatory: Selects Row 2, Copies, Offsets after last filled cell in column A by 2 rows, then pastes.

Now, column M on my worksheet has a list of Dates. I have this sorted from oldest to newest. What I want to happen, is for the macro to look at the Dates in column M and if it is equal to the Date in cell M2, the oldest date and because row 1 has a header, then I want to select those rows, then offset paste them as done in with the code above.

 

[AlphaFrog]

[color=darkblue]Sub[/color] Copy_Oldest()
    [color=darkblue]Dim[/color] rngOld [color=darkblue]As[/color] Range
    Application.ScreenUpdating = [color=darkblue]False[/color]
    Range("M:M").AutoFilter 1, Range("M2").Value
    [color=darkblue]Set[/color] rngOld = Range("M2", Range("M" & Rows.Count).End(xlUp)).EntireRow
    ActiveSheet.AutoFilterMode = [color=darkblue]False[/color]
    rngOld.Copy Destination:=Range("A" & Rows.Count).End(xlUp).Offset(2)
    Application.ScreenUpdating = [color=darkblue]True[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[pomereng]

Perfect, thanks Alpha!