특정 범위를 새 통합 문서에 복사하고 저장하기

Sub CopyRangeToNewWorkbook()
    Dim rng As Range
    Dim wb As Workbook
    Dim newWb As Workbook
    Dim savePath As String

    ' 복사할 범위를 설정
    Set rng = ThisWorkbook.Sheets("Example 1").Range("B4:C15")

    ' 새 통합문서 생성
    Set newWb = Workbooks.Add

    ' 새로운 통합문서의 첫 번째 시트에 범위 붙여넣기
    rng.Copy Destination:=newWb.Sheets(1).Range("A1")

    ' 저장 경로와 파일명 설정
    savePath = "F:\Download\NewWorkbook.xlsx"
    
    ' 새 통합문서 저장
    newWb.SaveAs Filename:=savePath

    ' 새 통합문서 닫기
    newWb.Close

    ' 개체 변수 해제
    Set rng = Nothing
    Set newWb = Nothing
End Sub