Excel - Extraer datos de una fila combinada con otra columna

Sub ReDistribuir()

'------------------

'by Cacho Rodríguez

'------------------

Dim Rng As Range, C As Range, iCol%, iVec, iRow%

On Error Resume Next

Set Rng = Application.InputBox("Selecciona el rango de celdas a procesar", Type:=8)

If Rng Is Nothing Then Exit Sub

Application.ScreenUpdating = False

iCol = 3 + Rng.Column + Rng.Columns.Count

Cells(Rng.Row, iCol).CurrentRegion.Delete xlShiftUp

Cells(Rng.Row, iCol) = "Valores"

For Each C In Rng.Columns(1).Cells

  If InStr(C, "/") > 0 Then

    iVec = Application.Transpose(Split(Replace(C, " ", ""), "/"))

  Else

    ReDim iVec(1 To 1, 1 To 1)

    iVec(1, 1) = C

  End If

  iRow = UBound(iVec): ReDim Preserve iVec(1 To iRow, 1 To 2)

  iVec(1, 2) = C.Offset(, 1)

  Cells(Rows.Count, iCol).End(xlUp).Offset(1).Resize(iRow, 2) = iVec

  Cells(Rows.Count, 1 + iCol).End(xlUp).Resize(iRow).MergeCells = True

Next

DoEvents

Application.ScreenUpdating = True

End Sub