Sub 부서데이터복사()

    Dim 부서 As String

    부서 = Range("C2").Value

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

End Sub