Code to Copy and Paste

Good morning, Gurus.

I know I've seen the proper way to do this, but couldn't find it in my search. How would I properly code the following to copy and paste values from onw workbook to another?

    wbMyWb.Activate
    Range("D2").Copy
    ThisWorkbook.Activate
    Range("K1").Select
    ActiveSheet.Paste
    wbMyWb.Activate
    Range("E2").Copy
    ThisWorkbook.Activate
    Range("L1").Select
    ActiveSheet.Paste
    wbMyWb.Activate
    Range("G2").Copy
    ThisWorkbook.Activate
    Range("G1").Select
    ActiveSheet.Paste

Thanks in advance.

You can do without switching from WB1 to WB2

Sub copy1()
  Dim WsS As Worksheet, WsT As Worksheet
  Dim SourceRng As Range
  Dim PasteRng As Range
  Dim Counter As Long
  Dim Ccell As Range
  Dim MyArray

  Set WsS = Workbooks("Book1.xls").Worksheets("Sheet1") 'Needs to be open Open
  Set WsT = Workbooks("Book2.xls").Worksheets("Sheet1") 'Needs to be open Open
  Set SourceRng = Union(WsS.Range("D2"), WsS.Range("E2"), WsS.Range("G2"))
  Set PasteRng = Union(WsT.Range("K1"), WsT.Range("L1"), WsT.Range("G1"))
  
  ReDim MyArray(1 To SourceRng.Cells.Count)
  Counter = 1
  For Each Ccell In SourceRng
    MyArray(Counter) = Ccell
    Counter = Counter + 1
  Next
 Counter = 1
  For Each Ccell In PasteRng
    Ccell = MyArray(Counter)
    Counter = Counter + 1
  Next
End Sub

Try this

Option Explicit
Sub Copy()
    Dim wbMyWb As Workbook
    Dim tWbk   As Workbook
    Set wbMyWb = Workbooks("Test.xls")
    Set tWbk = ThisWorkbook
    With wbMyWb
        tWbk.Range("K1") = .Range("D2")
        tWbk.Range("L1") = .Range("E2")
        tWbk.Range("G1") = .Range("G2")
    End With
End Sub

I was swapping backwards & forwards to check which cells you were copying & didn't notice I hadn't added the .Value. As Ken says I would usually always do so.