Interrompi copia incolla se l'intervallo filtrato non contiene dati (excel VBA)

Ciao,

Sto lavorando Excel 2013,

Ho bisogno del filtro automatico "#N/A" nella colonna "F", se il filtro "#N/A" non contiene dati con l'intestazione, il codice "Vai a 0:" non ...

ma, il mio codice non funziona, vai a 0:

Sub testss()
'Filtra Inserisci e #N/D Copia e Incolla
'VBA - Disattiva filtro automatico dal codice
Se ActiveSheet.AutoFilterMode allora
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). Filtro automatico ---> Attiva filtro automatico
End If

'Filtro automatico delle celle vuote della seconda colonna
Abbassa l'ultima riga finché
UltimaRiga = Intervallo("B" & Righe.Conteggio).Fine(xlSu).Riga

In caso di errore Riprendi il prossimo 'se il filtro non viene eseguito alcun dato
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Filtra celle non applicabili quindi seleziona celle visibili
Intervallo("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Seleziona

'Interrompi copia incolla se l'intervallo filtrato non contiene dati
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Allora
Intervallo("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Seleziona
Selection.Copy
'Codice Fare Qualcosa.........
Application.CutCopyMode = False
Altro
ActiveSheet.AutoFilterMode = Falso
Vai a 0:
End If

'Codice Fare Qualcosa.........

0:
End Sub


Gentilmente aiutami, grazie per l'anticipo
  Interrompi il copia incolla se l'intervallo filtrato non ha data.zip   Interrompi il copia incolla se l'intervallo filtrato non ha data.zip