Help, please

Worksheet is sorted by dates in Col. A. Dates have varying number of rows;
i.e., 5-6-08 may have 29 rows of data; 5-7-08 may have 14 rows; and 5-8-08
may have 42 rows. How can I automatically transfer to another worksheet the
values in the last row for a date?

Don
Sat May 10 08:11:05 CDT 2008

one way

Sub lastvisiblerow()
fvr = Rows("8:1000").SpecialCells(xlCellTypeVisible).Row
MsgBox fvr
lvr = Cells(fvr, 1).End(xlDown).Row
MsgBox lvr
rows(lvr).copy sheets("sheet2").range("a1")
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
"SedonaBob" <SedonaBob@discussions.microsoft.com> wrote in message
news:74F86E5B-7F42-464B-B6F5-3DAB682062A5@microsoft.com...
> Worksheet is sorted by dates in Col. A. Dates have varying number of
> rows;
> i.e., 5-6-08 may have 29 rows of data; 5-7-08 may have 14 rows; and 5-8-08
> may have 42 rows. How can I automatically transfer to another worksheet
> the
> values in the last row for a date?