A macro seria:
Sub enterNextNumber()
If ActiveCell.Value = "" Then ActiveCell.Value = WorksheetFunction.Max(Columns(ActiveCell.Column)) + 1
End Sub
Você poderia vinculá-lo a um atalho como Ctrl + I , então você selecionaria sua próxima célula, pressionaria o atalho e ele digitaria o próximo número na sua sequência, olhando para o maior número existente na coluna ativa e adicionando 1.