Copy Cells from one workbook to another

[jquintana83]

Hello,

I recorded a macro to copy and paste values from several different ranges in one workbook, then open a destination workbook and paste them there. For the most part it just goes back and forth till it's done. It works just fine but I was wondering if there was a more efficient way of doing this? Maybe with the use of an Aeeay Thank you in advance for looking at my code.

Worksheets("ECN_Form").Activate
    Worksheets("ECN_Form").Range("AA1").Select
    Selection.Copy
    ChDir "\\psf\Home\Desktop\TestEnviroment\"
    Workbooks.Open Filename:="\\psf\Home\Desktop\TestEnviroment\LogTest.xlsm"
    Range("A:A").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
        
    Worksheets("ECN_Form").Range("R5").Select
    Selection.Copy
    Windows("LogTest.xlsm").Activate
    Range("B2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
    
    Worksheets("ECN_Form").Range("F5").Select
    Selection.Copy
    Windows("LogTest.xlsm").Activate
    Range("C2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
    
    With myClipbd
        .SetText Me.Controls.Item("TxtFromToSum").Text
        .PutInClipboard
    End With
    Windows("LogTest.xlsm").Activate
    Range("D2").End(xlDown).Offset(1, 0).Select
    ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
        False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
    
    Worksheets("ECN_Form").Range("A10").Select
    Selection.Copy
    Windows("LogTest.xlsm").Activate
    Range("E2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
    
    Worksheets("ECN_Form").Range("K11").Select
    Selection.Copy
    Windows("LogTest.xlsm").Activate
    Range("F2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
    
    Worksheets("ECN_Form").Range("F3").Select
    Selection.Copy
    Windows("LogTest.xlsm").Activate
    Range("G2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
    
    Worksheets("ECN_Form").Range("S36").Select
    Selection.Copy
    Windows("LogTest.xlsm").Activate
    Range("I2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
    
    Worksheets("ECN_Form").Range("R3").Select
    Selection.Copy
    Windows("LogTest.xlsm").Activate
    Range("J2").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Range("H2").End(xlDown).Offset(1, 0).Value = "PENDING"
    
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
        
    Worksheets("ECN_Form").Visible = False
    
    'Open_F = Application.GetOpenFilename()

    Application.ScreenUpdating = True
    UserForm1.Hide
    Application.Visible = True
    Application.DisplayAlerts = False
    ThisWorkbook.Close

[haripopuri]

Sub Test()
Dim MyArr As Variant
Dim z As Long
Windows("ECN New Layout 5 CntrAcrss.xlsm").Activate
Worksheets("ECN_Form").Activate
MyArr = Array(Range("AA1").Value, Range("r5").Value, Range("F5").Value, "Something", Range("A10").Value, Range("K11").Value, Range("F3").Value, "PENDING", Range("S36").Value, Range("R3").Value)

ChDir "\\psf\Home\Desktop\TestEnviroment\"
Workbooks.Open Filename:="\\psf\Home\Desktop\TestEnviroment\LogTest.xlsm"

For z = 0 To UBound(MyArr)
ActiveWorkbook.ActiveSheet.Range("A2").Activate
    ActiveCell.Offset(0, z).End(xlDown).Offset(1, 0).Value = MyArr(z)
Next z
End Sub