Excel - Auxilio urge por proyecto de trabajo

* Escribes los valores en la columna A fila 1... sin vacios

* Haces click en celda B1... y ojala salga lo que deseas...

* ... No entiendo color... indica condicion...

-----------------

Dim intContador As Integer

Dim sinFila As Single

Dim intSigue As Integer

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Address = "$B$1" Then

    Me.Columns("B") = ""

    If Cells(1, 1) <> "" Then

    intContador = 1: sinFila = 0

    While Cells(intContador, 1) <> ""

        For intSigue = 1 To Cells(intContador, 1)

            sinFila = sinFila + 1

            Cells(sinFila, 2) = intContador

        Next

        intContador = intContador + 1

    Wend

    End If

End If

End Sub

------------------