Auto serial number in excel based on another column vba