Ustavite kopiranje, če filtrirani obseg nima podatkov (excel VBA)

Hi,

Delam Excel 2013,

Potrebujem samodejni filter "#N/A" v stolpcu "F", če filtriranje "#N/A" ni podatkov z naslovom, koda "Pojdi na 0:" ne ...

vendar moja koda ne deluje, pojdi na 0:

Subtestss()
'Filter Vstavi in ​​#N/A Kopiraj in prilepi
'VBA – izklopi samodejno filtriranje iz kode
Če ActiveSheet.AutoFilterMode Potem
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Vklopi samodejni filter
Konec Če

'Samodejni filter filter praznih celic 2. stolpca
Zatemni zadnjo vrstico tako dolgo
Zadnja vrstica = Obseg("B" & vrstic.Število).Konec(xlUp).Vrstica

Ob napaki Nadaljuj naprej 'če se filtrira, potem ni podatkov naprej
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Not Applicable Cells filter in nato izberite vidne celice
Obseg("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Izberi

»Ustavite kopiranje, če filtrirani obseg nima podatkov
Če je Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1, potem
Obseg("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Izberi
Izbor. Kopija
'Naredite nekaj kod.........
Application.CutCopyMode = Napačno
Else
ActiveSheet.AutoFilterMode = False
Pojdi na 0:
Konec Če

'Naredite nekaj kod.........

0:
End Sub


Prosim za pomoč, hvala za vnaprej
  Ustavite kopiranje, če filtrirani obseg nima data.zip   Ustavite kopiranje, če filtrirani obseg nima data.zip