Use of Do while Loop in Excel VBA