Заполните пустые ячейки на основе приведенных ниже значений, если смещения идентичны

Question

Я хочу заполнить пустые ячейки в столбце B указанными ниже значениями, но только если смещения в столбце A одинаковы, и это нужно сделать для тысяч разных имен и значений.

I есть это, но мне действительно нужно противоположное (например, заполнение верхних значений на основе значений ниже, если их смещения в столбце A идентичны)

Sub Fillin()

With Range("B:B").SpecialCells(xlCellTypeBlanks)
          .Formula = "=IF(RC[-1]=R[-1]C[-1],R[-1]C,"""")"
          .Formula = "=IF(RC[+1]=R[-1]C[-1],R[+1]C,"""")"
          
End With
End Sub

Например:

Column A Column B
-----------------

 - BMW     blue
 - Audi    blank (should fill in as red because Audi = Audi on A)
 - Audi    red
 - Audi    green

Спасибо !

Answer 1

Dim c As Range

For Each c in Application.Intersect(ActiveSheet.Columns(2), ActiveSheet.UsedRange).Cells
    if Len(Trim(c.value))=0 and c.offset(0,-1).Value = c.offset(1, -1).Value Then 
        c.value=c.offset(1, 0).value
    end if
Next c