Update Subs

Added sub to remove blank rows in Column