Sub CopyAndMultiplyData()
    Dim sourceWb As Workbook
    Dim targetWb As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim multiplyValue As Double
    
    ' 복사할 값에 곱할 숫자
    multiplyValue = 1000
    
    ' 원본 데이터가 있는 파일 열기
    Set sourceWb = Workbooks.Open("C:\path\to\Workbook1.xlsx") ' 원본 파일 경로로 수정
    Set sourceSheet = sourceWb.Sheets(1) ' 1번 시트 선택
    
    ' 데이터를 붙여넣을 파일 열기
    Set targetWb = Workbooks.Open("C:\path\to\Workbook2.xlsx") ' 대상 파일 경로로 수정
    Set targetSheet = targetWb.Sheets(1) ' 1번 시트 선택
    
    ' 원본 데이터 범위 설정 (A3:A10)
    Set sourceRange = sourceSheet.Range("A3:A10")
    
    ' 대상 셀 범위 설정 (A3:A10)
    Set targetRange = targetSheet.Range("A3:A10")
    
    ' 데이터를 복사하고 1000을 곱하여 대상 셀에 붙여넣기
    For Each cell In sourceRange
        targetSheet.Cells(cell.Row, cell.Column).Value = cell.Value * multiplyValue
    Next cell
    
    ' 변경 사항 저장 및 파일 닫기
    targetWb.Save
    sourceWb.Close False
    targetWb.Close False
    
    MsgBox "데이터 복사 및 변환이 완료되었습니다."
End Sub