как преобразовать данные и добавить их в столбцы

[Hugo121]

Думаете, скриптом проще будет?
Рассчитано максимум на 4 валюты:

Sub tt()
Dim a, b, i&, ii&, sdvigvaluti&

a = [a1].CurrentRegion.Value
ReDim b(1 To UBound(a), 1 To 8)
For i = 2 To UBound(a)
If Len(a(i, 1)) Then
sdvigvaluti = 0
ii = ii + 1
b(ii, 1) = a(i, 1)
b(ii, 2 + sdvigvaluti) = a(i, 2)
b(ii, 6) = a(i, 3)
b(ii, 7) = a(i, 4)
b(ii, 8) = a(i, 5)
Else
sdvigvaluti = sdvigvaluti + 1
b(ii, 2 + sdvigvaluti) = a(i, 2)
End If
Next

[a13:h13].Resize(ii) = b
End Sub

P.S. Применять на картинке (или примере под картинкой)