Sortering & transfer rows

[parara]

I need a routine who sorter a list of data (like below) in a sheet1

DATE TEXT TEXT TEXT NUMBER


When the cell DATE match with the date i want , the row must copied in another sheet.


Thanks

Dionisios

[Mallycat]

[parara]

Dim mycell
Dim rng As Range
Dim rng2 As Range
Set rng2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp)
Set rng = Sheets("sheet1").Range("C1:C30")
For Each mycell In rng
If mycell.Value < Date Then
If Not IsEmpty(rng2) Then Set rng2 = rng2.Offset(1, 0)
mycell.EntireRow.Copy Destination:=rng2
End If
Next mycell

bat when i execute more than one times the routine , transfered rows , copied over olds.

[Mallycat]

Mate, I have got no idea what you are talking about. Why don't you post a spreadsheet with some sample data, and a second sheet that has the result you are trying to achieve.

Matt