Kleines VBA Code Problem

Sub step9()
Dim i, lz As Long
lz = Cells(Rows.Count, 6).End(xlUp).Row
For i = 1 To lz
If Cells(i, 6) = "" Then
Exit For
End If
Next i
Range("A2", Cells(i - 1, 43)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.DisplayAlerts = False
Selection.Delete
End Sub