F8 ile düzgün çalışan kod f5 ile çalışmıyor

[yNsr43]

merhaba arkadaşlar elimde dinamik verilerin aktığı bir sayfa var yapmak istediğim şeyse şu z16:z150 hücreleri arasinda gezinti yaparak başka bir makroyu çalıştırmak f8 ile sorunsuz çalışıyor ama f5 ile çalıştığında " If hucre.Value <> "" Then" koşulu çalışmıyor son boş hücreye gidiyor kodu bozuyor bunu nasıl düzeltebilirz ? teşekkürler.

Sub TeklifEkle_Eski()
Call TxtToExcel
Dim hucre As Range
For Each hucre In Sheets("RAPOR").Range("z16:z150")
If hucre.Value <> "" Then
Sheets("sayfa1").Range("a1") = hucre.Value
hucre.Select
Sheets("sanayiverileriaktar").Select

Sheets("rapor").Select

Else

Exit Sub
End If
Next hucre
End Sub

Sub TxtToExcel()
Application.EnableEvents = False
Range("yeni[Sütun3]").Select
Selection.ClearContents
Application.EnableEvents = True
Range("Z16").FormulaR1C1 = _
"=IFERROR(IF(FIND("","",[@yeni],1)-1<=4,IFERROR(RIGHT([@yeni],IFERROR(FIND("","",[@yeni],1)+1,"""")),[@yeni]),IFERROR(LEFT([@yeni],IFERROR(FIND("","",[@yeni],1)-1,"""")),[@yeni])),[@yeni])"

ActiveWorkbook.Connections("Sorgu - yeni").Refresh
Range("Z16").Select
End Sub