Public Sub resizeTableNamedHank()
Dim wsSheet As Worksheet
Dim table As ListObject
Dim newTableRange As Range
Set wsSheet = Worksheets("HankAnalysis")
Set table = wsSheet.ListObject("Hank")
'Argument must be a Range
table.Resize newTableRange
End Sub