Sub 데이터_가져오기()

    ChDir ThisWorkbook.Path
    Workbooks.Open Filename:=ThisWorkbook.Path & "\급여대장.xlsx"
    Range("I6:I10").Copy
    ThisWorkbook.Activate
    Cells(6, Month(Date)+2).PasteSpecial Paste:=xlPasteValues
    Workbooks("급여대장.xlsx").Activate
    ActiveWorkbook.Close

End Sub