Sub 부서데이터복사()

    Range("B4").AutoFilter Field:=1, Criteria1:=Range("C2").Value
    Range("C5:E100").Copy Sheets(Range("C2").Value).Range("B3")
    Range("B4").AutoFilter
    Range("C2").Select

End Sub