Compiler Error Listobject Resize

Hello,

I’m trying to compile a code and I get the attached message.

this is the lines of code:

Set S = Application.ThisWorkbook.ActiveSheet
S.ListObjects(1).Resize S.Range(S.Cells(1, 1), S.Cells(30, 16))

2019-08-06_16h35_51

Need help as soon as posible

Thank you.

Try to add ( and )

S.ListObjects(1).Resize( S.Range(S.Cells(1, 1), S.Cells(30, 16)) )