объединить 2столбца в один без перекрытия ячеек.

[Blame]

Добрый день!

Есть 3 столбца. В первом хранится своего рода ключ: данные, содержащие значения 1,2,3.
Если в 1ом столбце стоит 1- записать в 4ый столбец данные из столбца 2.
Если в 1ом столбце стоит 2 или 3 - записать в 4ый столбец данные из столбца 3.
Там где во 2ом столбце ячейки пустые,-заполнены в третьем. Там,где в третьем столбце ячейки пустые-заполнены во втором. или в обоих столбцах ячейки пустые.
Скажите,пожалуйста,как объединить эти 2 столбца(2 и 3) в один (4-ый), чтобы на место пустых ячеек 2ого столбца записались заполненные ячейки 3 столбца и на место пустых ячеек 3его столбца записались заполненные ячейки 2 столбца .
Я делаю так:

row_end = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For i = 2 To row_end
If Cells(i, 1) = 1 Then
Cells(i, 4) = Cells(i, 2)
End If
Next
For i = 2 To row_end
If Cells(i, 1) = 2 Or Cells(i, 1) = 3 Then
Cells(i, 4) = Cells(i, 3)
End If
Next
Next

Но это неправильно. Потому что получается наложение и перекрытие. Подскажите пожалуйста, как избежать этого?
Спасибо.

[nilem]

например

row_end = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For i = 2 To row_end
    Select Case Cells(i, 1)
        Case 1: Cells(i, 4) = IIf(IsEmpty(Cells(i, 2)), Cells(i, 3), Cells(i, 2))
        Case 2, 3: Cells(i, 4) = IIf(IsEmpty(Cells(i, 3)), Cells(i, 2), Cells(i, 3))
    End Select
Next