Datentypproblem

Huhu,
ich habe ein Problem bei den Datentypen (denke ich zumindest). Meine ausgegebene Zeile möchte ich gerne wiederverwenden. Also den Zeilenindex nur. In meinem Set Bereich unten geht das dann aber leider schief. Wie kann ich denn die Schleife oben umschreiben, damit das funktioniert? Ich würde mich sehr über eine Antwort mit kurzer Erklärung freuen. Werde VBA schließlich noch öfter brauchen :)
DANKE!!
For u = .Cells(Rows.Count, 1).End(xlUp).row To 3 Step -1
If .Range("A" & u) <> .Range("A" & u - 1) Then
Wert = .Range("A" & u)
Zeile1 = u - 1
End If
Set Bereich1 = .Range("E2:E" & Zeile1)
Next u