copy workbook data into web adi excel workbook

[jaik22]

          Dim org As Workbook: Set org = ActiveWorkbook

    Dim temp As Workbook: Dim mPath As String: mPath = org.Worksheets("TEMP").Range("s7").Value


    On Error Resume Next
    Workbooks.Open filename:=mPath
    ActiveWorkbook.Activate
    Range("k6").Copy
    temp.Activate


    On Error Resume Next
    Range("e19").Select
    On Error Resume Next
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      ActiveWorkbook.Activate
      Range("n6").Copy
      temp.Activate


    On Error Resume Next
    Range("e20").Select
    On Error Resume Next
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Hi, I am trying to copy workbook's data and paste it into oracle web adi workbook template. However, the macro is not picking up the k6, n6 values to store into the template's e19 and e20 rows. So template's e19-20 rows are empty after running the macro.
Is there any way to fix this issue?

Thank you!

 

[sergioMabres]

Hi Jaink
I would use something more concise like

 'Set Values Between Workbooks    
    Workbooks("book2.xlsm").Worksheets("sheet1").range("E19").value = _
    Workbooks("book1.xlsm").Worksheets("sheet1").range("K6").value
    Workbooks("book2.xlsm").Worksheets("sheet1").range("E20").value = _
    Workbooks("book1.xlsm").Worksheets("sheet1").range("N6").value

Remember to change workbooks names and sheets names to your needs
Cheers
Sergio