VBA range and selection

Using the Sort ability of Excel I would like to plug in the Active Cells into the Range rather than a hardcoded number or cell

So instead of

Please Login or Register  to view this content.

I would like the ranges to be the active selection

Like ActiveWorkbook.Worksheets("Schedule").Sort.SortFields.Add Key:=Range("SELECTION"), SortOn:=xlSortOnValues, Order:=xlAscending,

If this is unclear then you can look at all my code below (Yes Segment 1 works but I needs to be rewritten also to account for added rows)

Please Login or Register  to view this content.

perhaps

Please Login or Register  to view this content.

"Didn't work" is rather vague.

Could you attach a workbook showing a (small) initial set up and the display you want after the macro is run?

I used record macro to figure out how to make vba sort but it wont let the range be the selected area. This will be a problem when the user adds or removes rows so I need vba to sort values in a range given that the number of rows could change

Column AI is a Match function that finds the first date that work begins and then sorting that column makes the whole chart flow