Option Explicit
Sub pechkin()
      Static Counter As Long
      Dim Offset_Point As Long
      Dim Count_Point As Long
      Dim Sum_Point As Long
      Dim Base As Range
          Set Base = [b2:b7]
          Offset_Point = 2 + Counter
                  For Each Base In Base
                      If Base = Base.Offset(, Offset_Point) Then Count_Point = 1 Else Count_Point = 0
                      Sum_Point = Sum_Point + Count_Point
                  Next Base
              If Sum_Point = 6 Then [a11] = [b8].Offset(, Offset_Point)
              Counter = Counter + 1
          If Offset_Point > 5 Then
          Counter = 0
          ElseIf Offset_Point > 5 Then
          Exit Sub
          Else
          Call pechkin
          End If
End Sub