Hentikan salin tempel jika rentang yang difilter tidak memiliki data (excel VBA)

Hai,

Saya bekerja Excel 2013,

Saya memerlukan Autofilter "#N/A" di kolom "F", jika memfilter "#N/A" tidak ada data dengan heading, kode "Goto 0:" tidak ...

tapi, kode saya tidak berfungsi, goto 0:

Sub tesss()
'Filter Sisipkan dan #N/A Salin dan Tempel
'VBA - Matikan Filter Otomatis Dari Kode
Jika ActiveSheet.AutoFilterMode Kemudian
ActiveSheet.AutoFilterMode = Salah 'ActiveSheet.Range("A1").AutoFilter ---> Aktifkan Autofilter
End If

'Filter Otomatis Filter Sel Kosong Kolom ke-2
Redup Baris Terakhir Selamanya
Baris Terakhir = Rentang("B" & Baris.Jumlah).End(xlUp).Baris

On Error Resume Next 'jika filter maka tidak ada data, lanjutkan
ActiveSheet.Range("$A$1:$F" & LastRow).Filter AutoFilter:=6, Criteria1:="#N/A" 'Sel Tidak Berlaku filter lalu pilih sel yang terlihat
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Pilih

'Hentikan salin tempel jika rentang yang difilter tidak memiliki data
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Pilih
Seleksi.Salin
'Kode Lakukan Sesuatu.........
Application.CutCopyMode = Salah
Lain
ActiveSheet.AutoFilterMode = Salah
Pergi ke 0:
End If

'Kode Lakukan Sesuatu.........

0:
End Sub


Mohon bantu saya, terima kasih sebelumnya
  Hentikan salin tempel jika rentang yang difilter tidak memiliki data.zip   Hentikan salin tempel jika rentang yang difilter tidak memiliki data.zip