Add A Row To The Bottom Of The Active Table

less than 1 minute read

Add a row at the bottom of the active table.
This will test that the active cell is in a table, then add a single row to at the bottom.

'==================================================================================================
' ## Add a row at the bottom of the active table
' This will test that the active cell is in a table, then add a single row to at the bottom.
'==================================================================================================
Private Sub AddRow_Click() '// Vars Dim SelectedCell As Range Dim TableName As String Dim ActiveTable As ListObject Set SelectedCell = ActiveCell '// Determine if ActiveCell is inside a Table On Error GoTo NoTableSelected TableName = SelectedCell.ListObject.Name Set ActiveTable = ActiveSheet.ListObjects(TableName) On Error GoTo 0 '// Add a row to the bottom of the ActiveTable ActiveTable.ListRows.Add AlwaysInsert:=True Exit Sub '// Error Handling
NoTableSelected: MsgBox "Select a cell in a table to insert a row at the bottom"
End Sub

Tags: tables

Categories: vba

Updated: September 25, 2018

Twitter Facebook LinkedIn

Leave a Comment