Delete Rows
 

I have this code for deleting the last row inserted from a form. I need to
edit this so as to ignore the first row. How could I do this?
Private Sub CommandButton6_Click()
Dim LastRowOnSheet As Long

LastRowOnSheet = Sheets("Sheet1").UsedRange.Rows.Count +
Sheets("Sheet1").UsedRange.row - 1
Sheets("Sheet1").Cells(LastRowOnSheet, 1).EntireRow.Delete


End Sub

Delete Rows
 

Hi Enyaw,

Try:

'=============
Private Sub CommandButton6_Click()
Dim LastRowOnSheet As Long

With ActiveWorkbook.Sheets("Sheet1")
LastRowOnSheet = .UsedRange.Rows.Count _
+ .UsedRange.Row - 1
If LastRowOnSheet 1 Then _
Rows(LastRowOnSheet).Delete
End With

End Sub
'<<=============


---
Regards,
Norman


"enyaw" wrote in message
...
I have this code for deleting the last row inserted from a form. I need to
edit this so as to ignore the first row. How could I do this?
Private Sub CommandButton6_Click()
Dim LastRowOnSheet As Long

LastRowOnSheet = Sheets("Sheet1").UsedRange.Rows.Count +
Sheets("Sheet1").UsedRange.row - 1
Sheets("Sheet1").Cells(LastRowOnSheet, 1).EntireRow.Delete


End Sub