Schleife auflösen

Sub agenda_zeigen()
'Dim suche As String
Dim z As Integer
'suche = "Agenda!A2"
'den Zähler für die Treffer zu Beginn auf Null stellen
z = 0
'hier ändern falls eine andere Spalte durchsucht werden soll
[H7].Activate
'bis zur ersten leeren Zelle suchen
Do Until ActiveCell = ""
'eine Zeile nach unten gehen
ActiveCell.Offset(1, 0).Activate
'wenn die Zelle den gesuchten Wert enthält:
If ActiveCell = Range("Agenda!A2") Then
'dann den Zähler um eins erhöhen
z = z + 1
'und die Zelle gelb markieren
Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, -2)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 1)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
End Sub