Need marco to extend table range to include new data in first column

[Conibear]

Novice in need of guidance!

I run a macro that copies all cells with unique text from a separate work sheet and pastes them in the first column of a table. As this table has a load of formulas worked out using this column as a reference, I want the table to automatically extend to include the new records. If I record the macro and drag manually I get the below:

---

Sub Macro3()
'
' Macro3 Macro
'


'
ActiveSheet.ListObjects("Table4").Resize Range("$C$3:$AF$3875")
Range("AD3859").Select

End Sub

---

So I essentially just want to change the Resize Range the the last row with any data in. I thought &lstrow would help but no joy...

Or, is there a more efficient way of going about this?

Any help really appreciated.

 

[SpillerBD]

ActiveSheet.ListObjects("Table4").Resize Range("$C$3").CurrentRegion

 

[Conibear]

Thanks SpillerBD- worked perfect. Thanks for taking the time.