필터에 값이 없을 때 건너뛰기 및 활성화 범위만 복사하는 방법

Sub 매크로2()
 
    Sheets("Sheet1").Select
    Dim iLastRow As Long
    With Sheets("Sheet1")
      .AutoFilterMode = False
      iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
      .Range("$A$2:$C$" & iLastRow).AutoFilter Field:=2, Criteria1:="1"
      iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
      If iLastRow <= 2 Then
          MsgBox "해당되는 자료 없음"
      Else
          .Range("$B$3:$C$" & iLastRow).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("B4")
          With Sheets("Sheet2").Tab
              .Color = 65535
              .TintAndShade = 0
          End With
      End If
 
 
      .AutoFilterMode = False
      iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
      .Range("$A$2:$C$" & iLastRow).AutoFilter Field:=2, Criteria1:="2"
      iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
      If iLastRow <= 2 Then
          MsgBox "해당되는 자료 없음"
      Else
          .Range("$B$3:$C$" & iLastRow).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet3").Range("B4")
          With ActiveWorkbook.Sheets("Sheet3").Tab
            .Color = 65535
            .TintAndShade = 0
          End With
      End If
 
    End With
End Sub