Állítsa le a beillesztést, ha a szűrt tartományban nincs adat (Excel VBA)

Szia,

Excel 2013-mal dolgozom,

Szükségem van a "#N/A" automatikus szűrőre az "F" oszlopban, ha az "#N/A" szűrésére nincs adat a "Goto 0:" címsorral, akkor a kód...

de a kódom nem működik, 0 lett:

Altesztekss()
'Szűrő beszúrása és #N/A Másolás és beillesztés
„VBA – Kapcsolja ki az automatikus szűrőt a kódból
Ha ActiveSheet.AutoFilterMode Akkor
ActiveSheet.AutoFilterMode = Hamis 'ActiveSheet.Range("A1").AutoFilter ---> Az automatikus szűrő bekapcsolása
Ha véget

„Automatikus szűrő 2. oszlop üres cellák szűrője
Dim LastRow As Long
UtolsóRow = Tartomány("B" & sorok.szám).End(xlUp).Sor

Error Resume Next (Hiba esetén Folytatás a következőhöz) 'ha szűrő, akkor nincs adat, továbblép
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Nem alkalmazható Cellák szűrő, majd válassza ki a látható cellákat
Tartomány("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select

„Ha a szűrt tartományban nincsenek adatok, állítsa le a beillesztést
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Szám > 1 Akkor
Tartomány("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Csinálj valamit.........
Application.CutCopyMode = Hamis
Más
ActiveSheet.AutoFilterMode = Hamis
GoTo 0:
Ha véget

'Csinálj valamit.........

0:
End Sub


Légyszives segítsetek, előre is köszönöm
  Állítsa le a beillesztést, ha a szűrt tartományban nincs data.zip   Állítsa le a beillesztést, ha a szűrt tartományban nincs data.zip