필터링된 범위에 데이터가 없는 경우 복사 붙여넣기 중지(Excel VBA)

안녕,

엑셀 2013을 사용하고 있는데,

"F" 열에 자동 필터 "#N/A"가 필요합니다. "#N/A"를 필터링하면 "Goto 0:"이라는 제목이 있는 데이터가 없는 경우 코드가 ...

하지만 내 코드가 작동하지 않으면 0으로 이동합니다.

하위 테스트ss()
'필터 삽입 및 #N/A 복사 및 붙여넣기
'VBA – 코드에서 자동 필터 끄기
만약 ActiveSheet.AutoFilterMode 다음
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> 자동 필터 켜기
END IF

'자동 필터 2열 빈 셀 필터
마지막 행을 길게 흐리게
LastRow = Range("B" & Rows.Count).End(xlUp).Row

On Error Resume Next '필터가 있으면 데이터가 다음으로 이동하지 않습니다.
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" '적용할 수 없는 셀 필터 후 보이는 셀 선택
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 = False
다른
ActiveSheet.AutoFilterMode = 거짓
이동 0:
END IF

'코드좀...........

0:
최종 하위


친절하게 도와주세요, 미리 감사합니다
  필터링된 범위에 data.zip이 없으면 복사 붙여넣기 중지   필터링된 범위에 data.zip이 없으면 복사 붙여넣기 중지