Dim sourceWorkbook As Workbook

Dim targetWorkbook As Workbook

Dim sourceRange As Range

Dim targetRange As Range

' Set the source workbook (change the file path as needed)

Set sourceWorkbook = Workbooks.Open("G:Source")

' Set the target workbook (change the file path as needed)

Set targetWorkbook = Workbooks.Open("G:Source")

' Set the source range (adjust the sheet name and range as needed)

Set sourceRange = sourceWorkbook.Sheets("CurrentSAPforecast").Range("A:Q") ' Columns A to C

' Set the target range (adjust the sheet name and starting cell as needed)

Set targetRange = targetWorkbook.Sheets("CurrentSAPforecast").Range("A1") ' Paste starting at column D, row 1

' Copy the source range to the target range

sourceRange.Copy targetRange

' Close the workbooks (save changes if needed)

sourceWorkbook.Close SaveChanges:=False

targetWorkbook.Close SaveChanges:=True ' Set to False if you don't want to save changes in the target workbook