Here is some very simple generic code


Code:
--------------------
Set SourceSht = Sheets("Sheet1")
Set DestSht = Sheets("Sheet1")

With SourceSht
LastRow = .Range("A" & RowCount).End(xlUp).Row
StartRow = 1
For RowCount = StartRow To LastRow
If .Range("A" & RowCount) < .Range("A" & (RowCount)) Then
Set CopyRange = .Rows(StartRow & ":" & RowCount).Copy
Set DestRange = .Rows(1)
CopyRange.Copy Destination:=DestRange
StartRow = RowCount + 1
End If
Next RowCount
End With
--------------------


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=171620

Microsoft Office Help