Q:

Copy and paste values in predetermined cells

All what the code does is to copy three values and paste it into a new sheet   
The question is whether there is a shorter way in order to have the code more compact?
A loop would an option. However, the last lines to be copied and paste do not have a difference of 2. That is why i thought that a loop with "step 2" wouldnt yield the desired result.  
   Dim wb As Workbook, wq As Object
   Dim ws As Worksheet, datDatum
   Dim cell As Range

   Set wb = Workbooks.Add
   Set ws = wb.Worksheets("Table")
    ws.Select

   Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
   Vanilla").Range("C29").Copy
   ws.Range("J106").PasteSpecial Paste:=xlPasteValues  

   Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
   Vanilla").Range("C31").Copy
   ws.Range("L106").PasteSpecial Paste:=xlPasteValues

  Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
  Vanilla").Range("C33").Copy
  ws.Range("N106").PasteSpecial Paste:=xlPasteValues

  Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
  Vanilla").Range("C36").Copy
  ws.Range("Q106").PasteSpecial Paste:=xlPasteValues

Second Round of copying
  Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
  Vanilla").Range("L29").Copy
  ws.Range("J113").PasteSpecial Paste:=xlPasteValues

 Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
 Vanilla").Range("L31").Copy
 ws.Range("L113").PasteSpecial Paste:=xlPasteValues

 Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
 Vanilla").Range("L33").Copy
 ws.Range("N113").PasteSpecial Paste:=xlPasteValues

 Workbooks("Eigene Fundingspreads.xlsm").Sheets("Plain 
 Vanilla").Range("L36").Copy
 ws.Range("Q113").PasteSpecial Paste:=xlPasteValues

A:

The best way is to avoid copying. Much faster is assigning value of a source cell to a target cell. Especially, if all you need is the value of a cell. You can do it this way:
Dim wbEigene As Workbook
Set wbEigene = Workbooks("Eigene Fundingspreads.xlsm")
Dim wsPlainVanilla as Worksheet
Set wsPlainVanilla = wbEigene.Worksheets("Plain Vanilla")

'this way is more efficient than copying:
ws.Range("J106").Value = wsEigene.Range("C29").Value

Dim all your sheets and workbooks and use these variables to make your code more readable and easy to maintain.

