[VBA] 소스 파일에서 복사해서 대상 파일로 붙여넣기 하는 소스

(기록용) index.xlsx파일에 적어서 반복하려고 만든 소스, 계속 까먹어서 매번 찾기 귀찮아서 올림

Sub DataPaste(SourceFilePath As String,SourceFileName As String,SourceSheetName As String,SourceRange As String,DestnationFileName As String,DestnationSheetName As String, DestnationCell As String)
'
    Set wb = Workbooks.Open(SourceFilePath)
    Application.DisplayAlerts = False
    Windows(SourceFileName).Activate
    Sheets(SourceSheetName).Select
    Range(SourceRange).Activate
    If InStr(SourceRange, ":") Then
    Else
    ActiveCell.CurrentRegion.Select
    End If
    Selection.Copy
    Windows(DestnationFileName).Activate
    Application.DisplayAlerts = False
    Sheets(DestnationSheetName).Select
    Range(DestnationCell).Select
    ActiveSheet.Paste
    Application.DisplayAlerts = True
    application.Wait (Now + TimeValue("0:00:03"))
    wb.close
    ActiveWorkbook.Save
End Sub