Set Cel = .Cells.Find(What:=Brn, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, MatchCase:= _
        False, SearchFormat:=False)
        Adr = Cel.Address
' находим первую ячейку равную Brn
' здесь выпоняется некоторый код
Do
        On Error Resume Next
        Set Cel = .Cells.FindNext(After:=Cel)
' перебираем все ячейки 
        If Cel Is Nothing Or Cel.Address = Adr Then
            Exit Do
        End If
       ' и с каждой из них делаем определенные дейсвия
' вернее не не с этими ячейками, а на онове их положения в диапазоне.
'делаем расчеты
    Loop