Macro to delete Table

[ch46guy]

I need to run a macro to delete all the rows (except for the first 2) in a table. The table is named "Table1". The problem is the tables size is always different. Is there a way in VBA where I can resize the table to the original size? Any help with VBA code would appreciated. Thanks in advance.

 

[wigi]

Hello

Sub wigi()

    With ActiveSheet.ListObjects("Table1")
        .HeaderRowRange.Offset(2).Resize(.ListRows.Count - 1).Delete xlShiftUp
    End With

End Sub

 

[ch46guy]

Wigi

Thanks a lot. Works great.