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

"SedonaBob" wrote in message
...
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?