หยุดคัดลอกวางถ้าช่วงที่กรองไม่มีข้อมูล (excel VBA)

สวัสดี

ฉันทำงาน Excel 2013

ฉันต้องการตัวกรองอัตโนมัติ "#N/A" ในคอลัมน์ "F" หากตัวกรอง "#N/A" ไม่มีข้อมูลที่มีส่วนหัว รหัส "Goto 0:" จะ...

แต่รหัสของฉันใช้งานไม่ได้ ไปที่ 0:

การทดสอบย่อย ()
'ตัวกรองแทรกและ #N/A คัดลอกและวาง
'VBA – ปิดตัวกรองอัตโนมัติจากโค้ด
ถ้า ActiveSheet.AutoFilterMode แล้ว
ActiveSheet.AutoFilterMode = เท็จ 'ActiveSheet.Range ("A1") .AutoFilter ---> เปิดตัวกรองอัตโนมัติ
End If

'ตัวกรองเซลล์ว่างในคอลัมน์ที่ 2 โดยอัตโนมัติ
หรี่ LastRow As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row

On Error Resume Next 'ถ้าตัวกรองไม่มีข้อมูลไปต่อ
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Not Available Cells filter จากนั้นเลือกเซลล์ที่มองเห็นได้
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select

'หยุดคัดลอกวางหากช่วงที่กรองไม่มีข้อมูล
ถ้า Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 แล้ว
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
การเลือกคัดลอก
'รหัสทำอะไรสักอย่าง.........
Application.CutCopyMode = เท็จ
อื่น
ActiveSheet.AutoFilterMode = เท็จ
ไปที่ 0:
End If

'รหัสทำอะไรสักอย่าง.........

0:
ย่อยสิ้นสุด


กรุณาช่วยฉันขอบคุณสำหรับล่วงหน้า
  หยุดคัดลอกวางหากช่วงที่กรองไม่มี data.zip   หยุดคัดลอกวางหากช่วงที่กรองไม่มี data.zip