Active Selection turned into Range

Hello all,

I have come across this problem multiple times and finally decided to receive help and solve this problem. In VBA I utilize Range(Selection, Selection.End(xlToLeft)).Select often in order to select a large range of data with a variable amount of rows or columns. This works well until I want to plug that active selection into a tool in Excel like Sort and Filtering.

The below code and attached workbook is an example of this issue. This is a schedule spreadsheet that I would like to give to my superintendent. I would like him to be able to add rows to the schedule and then be able to press a button and sort it by beginning date but because the number of rows can change problems occur like filtering the wrong part of the sheet
If there was a way to put the active selection into the range this would solve the problem or is there a way to write code to make VBA extract the active selection and output it as a range or something

Thank you very much for any help,
Andy

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Selection.CurrentRegion still gives an error

See attached Picture for more detail

Please Login or Register  to view this content.