Examples that are working for the activesheet

If you can check one column you can use this example for column A

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Cells(LR, "A").EntireRow.Delete
End Sub

If you want to delete the last row with data on the sheet use this
example with the function

Sub testing()
Cells(LastRow(ActiveSheet), "A").EntireRow.Delete
End Sub

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function



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



"Bourbon" wrote in message ...

Hi, I'm learning VB and have a problem. It is very simple: I have a
spread sheet for which I am writing a macro to 1) Delete the contents
of the first row...this is done and then 2) find the last row with
content and delete the content. I am having trouble writing the code
for 2....

I have : lastrow.select
selection.clearcontents

Can anyone help?

Regards


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/