Excel Forum

Code: Select all

Sub Macro1()

    Range("A11:M11").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.EntireRow.Delete

End Sub

Code: Select all

Sub Macro1()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects("Table1393")
    Dim lastRow As Long
    lastRow = tbl.ListRows.Count
    Dim i As Long
    For i = lastRow To 11 Step -1
        tbl.ListRows(i).Delete
    Next i
End Sub