Copy cell from one workbook to a specific cell in another workbook

[omhs.msa]

I have two different excel files. The first excel file, "Invoice" has information in specific cells that I want to copy over to a specific cell in another excel file, "Packing Slip."

I want the information from "Invoice" B23:B45, F23:F45, and G23:G45 to copy to "Packing Slip" B23:B45, H23:H45, and J23:J45 when I click Submit.

I tried doing one cell only to test try and came up with the following codes, but not even this works.

As well as this one:

None of them work. Can anyone help me please?

[alansidman]

Try this:

Sub submit()
    Dim wbThis As Workbook
    Dim wbDest As Workbook
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng3 As Range
    Dim rng4 As Range
    Dim rng5 As Range
    Dim rng6 As Range
    Set wbThis = Workbooks("C:\Users\Invoice.xlsm")
    Set wbDest = Workbooks.Open("C:\Users\Packing Slip.xlsm")
    rng1 = wbThis.Sheets("Sheet1").Range("B23:B45")
    rng2 = wbThis.Sheets("Sheet1").Range("F23:F45")
    rng3 = wbThis.Sheets("Sheet1").Range("GF23:GF45")
    rng4 = wbDest.Sheets("Sheet1").Range("B23")
    rng5 = wbDest.Sheets("Sheet1").Range("H23")
    rng6 = wbDest.Sheets("Sheet1").Range("J23")
rng4.Value = rng1.Value
rng5.Value = rng2.Value
rng6.Value = rng3.Value

wbDest.Close

End Sub

[JOHN H. DAVIS]

This works for me:

Sub omhs_msa()
Workbooks.Open ("C:\Users\Packing Slip.xlsm")
Workbooks("Packing Slip.xlsm").Sheets("PAGE 1").Range("B23:B45").Value = Workbooks("Invoice.xls").Sheets("PAGE 1").Range("B23:B45").Value
Workbooks("Packing Slip.xlsm").Sheets("PAGE 1").Range("F23:F45").Value = Workbooks("Invoice.xls").Sheets("PAGE 1").Range("F23:F45").Value
Workbooks("Packing Slip.xlsm").Sheets("PAGE 1").Range("G23:G45").Value = Workbooks("Invoice.xls").Sheets("PAGE 1").Range("G23:G45").Value
Workbooks("Packing Slip.xlsm").Close True
End Sub