Key1: Range Problem in Data Sort

First time Forum user. The Macro below works but I need for the Key1 Range to be the active cell at column "CD" instead of "CD57". In other words, I am doing all of the sorting on a single row but the row number will vary depending on the row number of the active cell.

Thanks for your help.

Ron

Please Login or Register  to view this content.

Please Login or Register  to view this content.

instead of

Please Login or Register  to view this content.

note code tags are required by the forum rules when posting code