В качестве альтернативы
Sheets("Sheet1").Range(cells(2,3), cells(2,3).end(xldown)).NumberFormat = "#,##0"
Это позволит выбрать не весь столбец, а диапазон от первой до последней непустой строки.Если у вас есть пустые ячейки между вашей первой и последней строкой, это не подходящее решение, однако.