fixing the numbering issue under VBA