Resize table VBA

Thanks for giving me an idea
I got it

With ActiveSheet.ListObjects(1)
.Resize Range(.Name & "[#All]").Resize(2, 4)
End With