Add row to end of table and resize table automatically

Hi, I'm having issues resizing the table after I add a row to the end of it...any help is appreciatted.

VB:

Sub Add_Row()
'
'
' Definitions
Dim r As Integer

' Unhide Key sheet
Sheets("Tradeflow List").Select
Sheets("Key").Visible = True

' Count number of rows
r = 0 'initialize rows
r = Range("Table1").End(xlDown)

' Copy and paste master row
Sheets("Key").Select
Rows("186:186").Select
Selection.Copy
Sheets("Tradeflow List").Select
Range("Table1").End(xlDown).Offset(1).Select
Selection.Insert Shift:=xlDown

' Hide Key sheet
Application.CutCopyMode = False
Sheets("Key").Visible = False

' Resize Table1
Range("Table1").resize (r + 1)
Range("Table1").Select

End Sub

Thanks in advance!