Sluta kopiera klistra om det filtrerade intervallet inte har några data (excel VBA)

Hej,

Jag arbetar med Excel 2013,

Jag behöver autofiltret "#N/A" i kolumnen "F", om filtrering av "#N/A" ingen data med rubriken, "Goto 0:"-koden gör...

men min kod fungerar inte, gå till 0:

Sub testsss()
'Filter Infoga och #N/A Kopiera och klistra in
'VBA – Stäng av autofilter från kod
Om ActiveSheet.AutoFilterMode Då
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1"). AutoFilter ---> Slå på autofilter
End If

"Autofiltrera 2:a kolumnens tomma cellers filter
Dimma Last Row As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row

Vid Error Resume Next 'Om filtret går ingen data vidare
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Inte tillämpliga Celler filter och välj sedan synliga celler
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Välj

"Sluta kopiera klistra in om det filtrerade intervallet saknar data
If Range("A1:F" & Last Row).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Välj
Selection.Copy
'Do Something Code.........
Application.CutCopyMode = False
annars
ActiveSheet.AutoFilterMode = False
Gå till 0:
End If

'Do Something Code.........

0:
End Sub


Snälla hjälp mig, tack för förskottet
  Sluta kopiera klistra in om det filtrerade intervallet inte har data.zip   Sluta kopiera klistra in om det filtrerade intervallet inte har data.zip