Code to quickly delete rows in sheet

Hi. At the end of the month I have 1 sheet that has like 15k rows, and my friend wrote me a macro to delete the rows but I feel like it runs slow. Is there a faster way to delete all row? Here is what I found in the code windows when I click "edit" the macro

Sub ClearAllRows()
Application.ScreenUpdating = False
Dim r As Integer
r = Cells.SpecialCells(xlCellTypeLastCell).Row

for r= UBound(ActiveSheet.UsedRange.Value) to 2 step -1

    Rows(r).Delete

next

Application.ScreenUpdating = True

End Sub