VBA to update ranges for names

[dukeofscouts]

I need a VBA code to update cell ranges on names. Since I am using an "INDIRECT" function with these names, I can not use the "OFFSET" function. One of my teachers advised me there is a VBA code for this, however I have not found it. I have the ranges as pivot tables, however the ranges do not expand as I add new records to each table.

Does anyone know the VBA for this?