VBA to update Dynamic Range in filter

Hello,

I have below VBA code which I recorded in order to do the selection of filter value.

But how can I make range in above code to be dynamic? Because every time data would be different so range would wary..
please assist.

Thanks,
Shiva