Detalhes de vba autonumeracao insere celula b4

Esta macro do Aplicativo Microsoft Excel VBA, insere uma autonumeração e incrementa o número a cada execução da macro, neste caso escolhemos a célula(B4)

Sub Autonumeracao_incrementa()
Dim vCelula As Range
For Each vCelula In Range("B4").Cells
vCelula.Value = vCelula.Value + 1
Next
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel