Delete Rows

[Guest]

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

 

[Norman Jones]

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
'<<=============