Как выполнить условие по именам

[valerij]

Есть шесть имен:
1. "В В К, К О Л Я, В К, Л Е Н А, Н А Т А, В С" (через пробел)
и каждому имени соответствуют данные в "A3:F3":
2. "50.44, 359.58, 270.29, -2718.58, 1121, 334.05"

В ячейках В6 и С6 всегда вписывается в ручную, только два имени(любых), именно так как в п.1(через пробел).
например:
В6 - В К {= 270.29 в Cells(3, 3)}
С6 - Л Е Н А {= -2718.58 в Cells(3, 4)}

Вопрос:

Как выполнить условие, что, когда в ячейках В6 и С6 соответствующие имена, то и в "Cells(3, X) + Cells(3, Y)" соответствующие значения п.2

Если пробел использовать нельзя, то запись имени мона взять так "В_К"

[IgorGO]

Валера, а слабо файл прицепить?

[valerij]

Сообщение от IgorGO

файл прицепить?

Прицепил. Прицепил.

[valerij]

Все, нашел как, все работает и не зависит от комбинации имен!

Sub Счет()
Dim bStolb As Long, cStolb As Long
If [B6] = "В В К" Then bStolb = 1
If [B6] = "В К" Then bStolb = 3
If [B6] = "В С" Then bStolb = 6
If [B6] = "К У Т Я" Then bStolb = 2
If [B6] = "Л Е Н А" Then bStolb = 4
If [B6] = "Н А Т А" Then bStolb = 5
If [C6] = "В В К" Then cStolb = 1
If [C6] = "В К" Then cStolb = 3
If [C6] = "В С" Then cStolb = 6
If [C6] = "К У Т Я" Then cStolb = 2
If [C6] = "Л Е Н А" Then cStolb = 4
If [C6] = "Н А Т А" Then cStolb = 5
With Sheets(15).Cells
    .Cells(40, 3) = .Cells(39, 3) + .Cells(3, bStolb) + _
    .Cells(3, cStolb) + .Cells(3, 8) - Sheets(16).Cells(16, 3)
End With
End Sub

Может мона упростить?