Pare de copiar e colar se o intervalo filtrado não tiver dados (excel VBA)

Oi,

Estou trabalhando no Excel 2013,

Eu preciso do Autofiltro "#N/A" na coluna "F", se filtrar o "#N/A" nenhum dado com o título, o código "Goto 0:" faz...

mas, meu código não está funcionando, vá para 0:

Subtestesss()
'Filtro Inserir e #N/D Copiar e Colar
'VBA - Desligue o filtro automático do código
Se ActiveSheet.AutoFilterMode Então
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Ativar Autofiltro
Se acabar

'Filtro Automático Filtro de Células em Branco da 2ª Coluna
Escurecer a última linha por muito tempo
LastRow = Range("B" & Rows.Count).End(xlUp).Row

On Error Resume Next 'se filtro então nenhum dado vai em seguida
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Não Aplicável Filtro de Células então selecione as células visíveis
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select

'Para de copiar e colar se o intervalo filtrado não tiver dados
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Faça Algo Código.........
Application.CutCopyMode = False
Outro
ActiveSheet.AutoFilterMode = Falso
Ir para 0:
Se acabar

'Faça Algo Código.........

0:
End Sub


Por favor me ajude, obrigado pelo adiantamento
  Pare de copiar e colar se o intervalo filtrado não tiver data.zip   Pare de copiar e colar se o intervalo filtrado não tiver data.zip