Help, please

[SedonaBob]

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 Guillett]

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