Excel Vba Count Active Rows Deal