For Each. Next - VBA

Формулировка задачи:

Приветы всем. Не получается бороться с отладчиком на тему For Each... Next, мне нужно получать "Value = Cells(8, 1) & " | " & t1.Offset(0, a).Next.Value" для каждого найденного в b1:b5000 значения, но находится только одно самое верхнее, и ниже по столбцу уже ничего не ищется. Как подправить код?

Sub tst()
Dim a As Integer, t As Range, t1 As Range
Set t = Range("b1:b5000")
Select Case Val(Cells(1, 9))
End Select
Set t1 = t.Find(Cells(1, 9), LookAt:=xlWhole)
If Not t1 Is Nothing Then
t1.Offset(0, a).Next.Value = Cells(8, 1) & " | " & t1.Offset(0, a).Next.Value
End If
End Sub

Раз никто не знает, остановился на немного глючном варианте, но меня он пока что может устроить:

Sub tst1()
Dim a As Integer, t As Range, ti As Range, i As Long
Set t = Range("b1:b11")
For i = 1 To 11
Select Case Val(Cells(1, 9))
End Select
Set ti = t.Find(Cells(1, 9), LookAt:=xlWhole)
ti = ti + 1  '- теперь код работает по всему столбцу, 
'но прибавляет 1 к искомому значению и выскакивает отладчик
On Error Resume Next 'убивает отладчика, но по-прежнему прибавляет 1 к искомому значению
If Not ti Is Nothing Then
ti.Offset(0, a).Next.Value = Cells(8, 1) & " | " & ti.Offset(0, a).Next.Value
End If
Next i

End Sub

В общем, пока так. Увеличение на 1 искомого значения в результате работы макроса меня не напрягает, значения все равно динамичные. Спасибо всем, кто не откликнулся.

Решение задачи: «For Each. Next»

textual
                            Листинг программы 
                        

                            Sub uuu()
    For Each cel In Range("B1:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
        If cel.Value = Cells(1, 9) Then
            cel.Offset(0, 1).Value = Cells(8, 1) & "|" & cel.Value
        End If
    Next
End Sub
                        