Deleteing elements in a table quickly

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

Please Login or Register  to view this content.

I created a for loop for it,

Please Login or Register  to view this content.

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?

Works like a charm and keeps the formula for the columns,

thanks!!