Dừng sao chép dán nếu phạm vi đã lọc không có dữ liệu (excel VBA)

Chào,

Tôi đang làm việc Excel 2013,

Tôi cần Bộ lọc tự động "# N / A" trong cột "F", nếu bộ lọc "# N / A" không có dữ liệu với tiêu đề, mã "Goto 0:" không ...

nhưng, mã của tôi không hoạt động, chuyển đến 0:

Sub testsss ()
'Chèn bộ lọc và # N / A Sao chép và Dán
'VBA - Tắt bộ lọc tự động từ mã
Nếu ActiveSheet.AutoFilterMode Thì
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range ("A1"). AutoFilter ---> Bật Autofilter
Cuối Nếu

'Bộ lọc ô trống cột thứ 2 tự động lọc
Dim LastRow As Long
LastRow = Range ("B" & Rows.Count) .End (xlUp) .Row

Trên Lỗi Tiếp tục Tiếp theo 'nếu bộ lọc thì không có dữ liệu nào tiếp theo
ActiveSheet.Range ("$ A $ 1: $ F" & LastRow) .AutoFilter Field: = 6, Criteria1: = "# N / A" 'Bộ lọc ô không thể áp dụng sau đó chọn ô hiển thị
Phạm vi ("$ A $ 2: $ F" & LastRow) .SpecialCells (xlCellTypeVosystem) .Select

'Dừng dán sao chép nếu phạm vi đã lọc không có dữ liệu
If Range ("A1: F" & LastRow) .SpecialCells (xlCellTypeVosystem) .ount> 1 Then
Phạm vi ("$ B $ 2: $ D" & LastRow) .SpecialCells (xlCellTypeVosystem) .Select
Lựa chọn. Sao chép
'Làm một cái gì đó mã .........
Application.CutCopyMode = Sai
Khác
ActiveSheet.AutoFilterMode = Sai
Tới 0:
Cuối Nếu

'Làm một cái gì đó mã .........

0:
End Sub


Vui lòng giúp tôi, cảm ơn vì đã ứng trước
  Dừng sao chép dán nếu phạm vi đã lọc không có data.zip   Dừng sao chép dán nếu phạm vi đã lọc không có data.zip