Macro For Sorting A Single Column

I used the macros found at http://www.contextures.com/xlSort02.html to sort columns. This solution works fine, the invisible rectangle is really good to my interests. Here's how it works: macro #1 creates invisible rectangles at the top of the columns used, at row 1 where the headers are, and assigns a second macro to the rectangles. This second macro sorts the data table based on the column whose rectangle is clicked. The problem is that this solution is for data tables, it sorts the entire table and I want to sort the one, single and only column where I click the invisible rectangle.