Opriți copy paste dacă intervalul filtrat nu are date (excel VBA)

Bună,

Lucrez cu Excel 2013,

Am nevoie de filtrul automat „#N/A” în coloana „F”, dacă filtrul „#N/A” nu există date cu titlul, codul „Goto 0:” nu...

dar, codul meu nu funcționează, trec la 0:

Subtestsss()
„Inserați filtru și #N/A Copiați și lipiți
„VBA – Dezactivați filtrul automat din cod
Dacă ActiveSheet.AutoFilterMode Atunci
ActiveSheet.AutoFilterMode = False „ActiveSheet.Range(„A1”).AutoFilter ---> Activați filtrul automat
Final, dacă

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

La eroare Reluați următoarea „dacă filtrul, atunci nu urmează date
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" „Filtrați celulele care nu se aplică, apoi selectați celulele vizibile
Interval(„$A$2:$F” și LastRow).SpecialCells(xlCellTypeVisible).Selectați

„Opriți copierea și lipirea dacă intervalul filtrat nu are date
If Range("A1:F" și LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Interval(„$B$2:$D” și LastRow).SpecialCells(xlCellTypeVisible).Selectați
Selectare.Copiere
'Fă ceva cod .........
Application.CutCopyMode = Fals
Altfel
ActiveSheet.AutoFilterMode = Fals
Du-te la 0:
Final, dacă

'Fă ceva cod .........

0:
End Sub


Va rog frumos sa ma ajutati, multumesc anticipat
  Opriți copy paste dacă intervalul filtrat nu are date.zip   Opriți copy paste dacă intervalul filtrat nu are date.zip