Zastavit kopírování a vkládání, pokud filtrovaný rozsah neobsahuje žádná data (excel VBA)

Dobrý den,

Pracuji v Excelu 2013,

Potřebuji automatický filtr "#N/A" ve sloupci "F", pokud filtr "#N/A" nefiltruje žádná data s nadpisem, kód "Goto 0:" ano...

ale můj kód nefunguje, mám 0:

Dílčí testy()
'Vložit filtr a #N/A Kopírovat a vložit
'VBA – Vypnout automatický filtr z kódu
Pokud ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Zapnout automatický filtr
End If

'Automatický filtr 2nd Column Blank Cells filter
Dim LastRow As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row

Při chybě Resume Next 'pokud filtr, pak žádná data nejdou dál
ActiveSheet.Range("$A$1:$F" & LastRow).Pole automatického filtru:=6, Criteria1:="#N/A" 'Nepoužitelný filtr buněk a poté vyberte viditelné buňky
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Vybrat

'Zastavit kopírování a vkládání, pokud filtrovaný rozsah neobsahuje žádná data
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Počet > 1 Potom
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Vybrat
Selection.Copy
'Udělejte něco kódu..........
Application.CutCopyMode = False
Jiný
ActiveSheet.AutoFilterMode = False
Přejít na 0:
End If

'Udělejte něco kódu..........

0:
End Sub


Prosím, pomozte mi, děkuji předem
  Zastavte kopírování a vkládání, pokud filtrovaný rozsah neobsahuje data.zip   Zastavte kopírování a vkládání, pokud filtrovaný rozsah neobsahuje data.zip