Pick, copy and paste rows containing specific range of values

i have a sheet ("B")containing a range of values.

One of these values is dates(column x).

I need to run a macro, that will pick all rows from sheet "B", within date "date1" stated in a cell in Sheet "a", and "today" copy these, and paste them to sheet "C".

Anyone who has some simple coding for that?

Kennyd71,

Try this and let me know if that is what you were looking for.


Simeon

Thank you, S.
That code was EXACTLY what i was looking for.
Much obliged.


Sub Copy_Data()

Dim r As Long

a = 2

Sheets("B").Select

For r = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(r, 24).Value <= Sheets("A").Range("A1").Value And Cells(r, 24).Value >= Sheets("A").Range("B2").Value Then
Rows(r).Select
Selection.Copy
Sheets("C").Select
Rows(a).Select
ActiveSheet.Paste
Sheets("B").Select
a = a + 1
End If

Next r

MsgBox "Date Range has been copied to Sheet C..."

End Sub