Using macro to delete all rows on a worksheet except first row, but first row is being deleted too

[alkyze]

I'm trying to delete all but the header row in a spreadsheet when a button is clicked. I'm using the code below which works perfectly except that it is deleting the header row as well.

Set ws = Worksheets ("Claims")
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
ws.Range ("A2:A" & LastRow).EntireRow.Delete

 

[Joe4]

That would happen if there are no rows of data on your sheet with data in column A except row 1 (so LastRow = 1).
Just add an IF statement, i.e.

Set ws = Sheets("Claims")
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If LastRow>1 Then ws.Rows("2:" & LastRow).Delete

Edit: I also cleaned up your code a little. You had some spaces/errors in it and was able to shorten a few of your lines of code.

 

[alkyze]

Thanks for your help! Definitely a brain dead moment for me

 

[Joe4]

No worries!
Glad I was able to help!