Excel Vba Count Number Of Columns With Data