Deleting Blank Rows than Organize Data from A to Z

Hello,

Attached is a Macro I am writing that will look at Basketball Data.

On sheet 1 I wrote a code to find all the PGs (point guards) in the list and copy only the PGs to Sheet 2
this is code is in module 1

then in module 2
I attempt to erase all the blank rows... But i run into to the problem where there is one blank row remaining.

I want to write a third module that would organize the data from the Point Guard with the most points at the top down to the lowest scoring point guard.

Can anyone give me any insight on why that last row won't delete from module 2 or How I can write a macro that would organize the higher points & player from top to bottom?

Actually, I would need it for VBA not Pivot tables...
I am attempting to understanding the logic more or less through a Macro.

One macro to rule them all

Please Login or Register  to view this content.

PS. Send me a pm if you want to know what is going on in the macro. You seemed to indicate you wanted macro knowledge