Filtrelenen aralıkta veri yoksa kopyala yapıştırmayı durdur (excel VBA)

Merhaba,

Excel 2013 çalışıyorum,

"#N/A" başlığına sahip veri yoksa, "Goto 0:" kodunu filtrelerseniz, "F" sütununda "#N/A" Otomatik Filtresine ihtiyacım var...

ancak kodum çalışmıyor, 0'a git:

Alt testlerss()
'Filtre Ekle ve #YOK Kopyala ve Yapıştır
'VBA - Koddan Otomatik Filtreyi Kapatın
ActiveSheet.AutoFilterMode ise
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Otomatik Filtreyi Aç
Eğer son

'Otomatik Filtre 2. Sütun Boş Hücreler filtresi
LastRow'u Uzun Süre Karart
LastRow = Aralık("B" & Rows.Count).End(xlUp).Row

Hata Devamında Sonraki 'eğer filtre varsa, sonraki veri yok
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Uygulanamayan Hücreler filtresini seçin, ardından görünür hücreleri seçin
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Seçin

'Filtrelenen aralıkta veri yoksa kopyala yapıştırmayı durdurun
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 O zaman
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Seçin
Selection.Copy
'Bir Şey Kodu Yap .........
Application.CutCopyMode = Yanlış
başka
ActiveSheet.AutoFilterMode = Yanlış
0'a git:
Eğer son

'Bir Şey Kodu Yap .........

0:
End Sub


Lütfen bana yardım edin, avans için teşekkürler
  Filtrelenen aralıkta data.zip yoksa kopyala yapıştırmayı durdurun   Filtrelenen aralıkta data.zip yoksa kopyala yapıştırmayı durdurun