My Macro is creating 3 extra columns at the end of a table; but the table isn't auto populating like it normally does for some odd reason. I want to write into the macro to include these last 3 columns without having to tell the macro how many rows; because row counts will very with every run. My code is below. I don't want it to have extra blank rows because I have to tell it to use that row count.. Is there something I can write prior to this code to have it link to the table like it once did before?
ActiveCell.FormulaR1C1 = "calc"
Range("AQ1").Select
ActiveCell.FormulaR1C1 = "calc1"
Range("AR1").Select
ActiveCell.FormulaR1C1 = "calc2"
Range("Table_owssvr__3[[#Headers],[Management Override Rationale]]").Select
ActiveSheet.ListObjects("Table_owssvr__3").Resize Range("$A$1:$AR$10000")
Range("Table_owssvr__3[[#Headers],[Management Override Rationale]]").Select
ActiveCell.FormulaR1C1 = "calc"
Range("AQ1").Select
ActiveCell.FormulaR1C1 = "calc1"
Range("AR1").Select
ActiveCell.FormulaR1C1 = "calc2"
Range("Table_owssvr__3[[#Headers],[Management Override Rationale]]").Select
ActiveSheet.ListObjects("Table_owssvr__3").Resize Range("$A$1:$AR$10000")
Range("Table_owssvr__3[[#Headers],[Management Override Rationale]]").Select