Sub Add_Row_and_Column()
    Dim oLo As ListObject
    Dim StrtRow As Long, EndRow As Long
    Dim StrtCol As Long, EndCol As Long
    Dim i As Integer

With ThisWorkbook.Sheets("Sheet1")
    Set oLo = .ListObjects(1)    '<~~ first table on sheet
    'establish table location
    With oLo
        StrtRow = .ListRows(1).Range.Row
        EndRow = .ListRows.Count + StrtRow - 1
        StrtCol = .ListColumns(1).Range.Row
        EndCol = .ListColumns.Count + StrtCol - 1
    End With
    'add column on right of table
    .Columns(EndCol + 1).Insert
    For i = StrtRow To EndRow
        .Cells(i, EndCol + 1).Interior.Color = .Cells(i, StrtCol).DisplayFormat.Interior.Color
    Next i
    'add row below table
    .Rows(EndRow + 1).Insert
    .Range(Cells(EndRow + 1, StrtCol), Cells(EndRow + 1, EndCol + 1)).Interior.Color = _
                            .Cells(EndRow - 1, StrtCol).DisplayFormat.Interior.Color
End With
End Sub