Нужен макрос чтобы удалить все ниже 20 строки - VBA

Формулировка задачи:

Привет всем, мне понадобилось сделать макрос, который будет удалять все что находится ниже определенной строки (например 20) Вот что я написал, не могу только понять где кроется ошибка

Sub RowDel()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
 If Application.Rows(r) < Rows(20) Then Rows(r).EntireRow.Delete
Next r
End Sub

красным подсвечивает вот эту часть 5 строки

Rows(r).EntireRow.Delete

Решение задачи: «Нужен макрос чтобы удалить все ниже 20 строки»

textual
                            Листинг программы 
                        

                            Sub RowDel2()
    For Each SN In ThisWorkbook.Sheets
        SN.Rows(21).Resize(SN.Rows.Count - 20).EntireRow.Delete
    Next
End Sub
                        