Werte statt Formeln kopieren VBA

[Rejorable]

Hallo Zusammen,

ich habe ein bestehenden Code, der mir die Daten von Tabelle Daten in Tabelle Archiv untereinander kopiert. Allerdings auch die Formeln, weshalb im Archiv nur quatsch angezeigt wird. Kann mir jemand sagen wie ich den Code anpassen muss, dass da nur Werte kopiert werden ? :D 

Sub Kopieren()

Dim shSource, shDest As Worksheet
Set shSource = Sheets("Daten")
Set shDest = Sheets("Archiv")
shSource.Range("A2:E100").Copy Destination:= _
shDest.Cells(Cells(shDest.Rows.Count, 2).End(xlUp).Row + 1, 1)
End Sub


Vielen Dank im Voraus

LG

[Kuwer]

Hallo,

Code:

Sub Kopieren()
  Sheets("Archiv").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1).Resize(99, 5).Value = Sheets("Daten").Range("A2:E100").Value
End Sub