Private Sub Worksheet_Change(ByVal Target As Range)
 With Target
   If .Address <> "$C$3" Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
       T = .Value
      End With
       Application.ScreenUpdating = False
     Set rngColumn = Sheets("Data").Range("B2").CurrentRegion.Columns(1)
      Range("B6:G" & Rows.Count).ClearContents
    With rngColumn
     If WorksheetFunction.CountIf(rngColumn, "*" & T & "*") = 0 Then
         Target.Select
      MsgBox " 입력하신 데이터에 해당하는 자료가 없습니다! ", 64, "입력오류 "
        Exit Sub
      Else
        .AutoFilter 1, "=*" & T & "*"
        .Offset(1).Resize(.Cells.Count - 1, 6).SpecialCells(12).Copy
         Range("B6").PasteSpecial (3)
        .AutoFilter
       Target.Select
     End If
   End With
End Sub