Deleteing elements in a table quickly

[Zealotwraith]

Good day,

I want to delete all elements in a table except the first one,

recording the macro just shows the following code multiple times

Worksheets("HR").ListObjects("TblHR").ListRows(2).Delete

I created a for loop for it,

For i = 1 To Worksheets("HR").ListObjects("TblHR").ListRows.Count - 1
        Worksheets("HR").ListObjects("TblHR").ListRows(2).Delete
    Next i

however the for loop is taking too long,

is there a way to Select row 2 all the way to the last one and delete them all?