Fehler beim auslesen letzter Zeile

sub blabla()
wksende = WBZ.Worksheets.Count
programm = test2
For a = 3 To wksende
Sheets(a).Select
letztezeileZ = Sheets(a).Cells(Rows.Count, 1).End(xlUp).Row
letztespalteZ = Sheets(a).Cells(1, 256).End(xlToLeft).Column
MsgBox letztespalteZ
MsgBox letztezeileZ
Set variable1 = WBZ.Sheets(a).Range(Cells(1, 1), Cells(1, letztespalteZ)).Find("TEST")
programmspalte = variable1.Column
For i = WBZ.Sheets(a).Cells(Rows.Count, programmspalte).End(xlUp).Row To 2 Step -1
If WBZ.Sheets(a).Cells(i, programmspalte)  programm Then Rows(i).Delete
Next i
Next a
end sub