Sub u_257()
    Application.ScreenUpdating = False 'отключим обновление экрана
    Range("i4:ad27").ClearContents 'сотрем старые значения
    ua = 4                    'верхняя строка
    ub = Cells(Rows.Count, "b").End(xlUp).Row   'нижняя строка
    For uc = ua To ub 'проходимся циклом по Well /uc = очередня строка цикла
        ue = Range("b" & uc).Value  'значение в ячейке
        uf = Range("d" & uc) + 199  'координата X
        ug = Range("e" & uc) + 199  'координата Y
        va = Application.Match(uf, Range("3:3"), 1) 'ПОИСКПОЗ(;;ИСТИНА) X
        vb = Application.Match(ug, Range("h:h"), 1) 'ПОИСКПОЗ(;;ИСТИНА) Y
        wa = Application.IsNumber(va) 'проверим найдены ли координаты (на всякий)
        wb = Application.IsNumber(vb)
        If wa And wb Then 'если найдены, тогда
            sa = Cells(vb, va) 'значение ячейки с соот. координатами
            If sa = "" Then 'если ячейка пуста
                sb = ue
            Else 'иначе, т.е. в ячейке уже есть значение
                sb = sa & ", " & ue
            End If
            Cells(vb, va) = sb 'запишем
        End If
    Next
    Application.ScreenUpdating = True 'включим обновление экрана
End Sub