Find last cell in a spreadshhet using VBA

Originally Posted by JapanDave

How about this?

Dim LastRow As Variant

LastRow = Intersect([A:A], Cells.SpecialCells(xlCellTypeConstants).EntireRow).EntireRow

Thanks but i cant get it to work it does nothing