Hi Nathan

Try this

Sub test()
Dim Lr As Long
With Sheets("sheet1")
Lr = .Range("A" & Rows.Count).End(xlUp).Row
..Range(.Cells(Lr - 2, "A"), .Cells(Lr, "A")).ClearContents
End With
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Nathan Gutman" wrote in message ...
I need to determine the last cell with data in column A then clear
contents from the last three cells in that column.
What is a simple way to do that?
Thanks..