Use VBA to create & name table

[Xlnovice1]

I get run time error 438 object doesnt support this property or method. I dont inderstand why it wont work. I have this running with command button. If I run it romally (using green play button) it works perfectly.
Please help thank you

'''Region address for table'''

n = ws.Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).CurrentRegion.Address

'''Format Table +m if month added to table name''''

ws.ListObject.Add(xlSrcRange, Range(n), , xlYes).Name = "Totals"

(ws is set as sheet 1)