Please Help - Exam in 1 hour

[DonDarvillo]

Hello.

I hope somebody can help me.

I have this piece of code, which takes some values, and copy them into a list (It's a reservation system).

How can i rewrite this to get it to paste ONLY VALUES in destination! because some of the elements in the reservation system are auto-calculating, but I want to save the specific data in the list.

Sub Knap5_Klik()



Worksheets("Reservation").Range("B5:K5").Copy _
Destination:=Worksheets("Bookninger").Cells(Worksheets("Bookninger").Rows.Count, "A").End(xlUp).Offset(1, 0)


Worksheets("Reservation").Select

Worksheets("Reservation").Range("B8:D8").Copy _
Destination:=Worksheets("Bookninger").Cells(Worksheets("Bookninger").Rows.Count, "K").End(xlUp).Offset(1, 0)
Worksheets("Reservation").Select

End Sub

 

[mumps]

Try:

Sub Knap5_Klik()
    Worksheets("Reservation").Range("B5:K5").Copy
    Worksheets("Bookninger").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Worksheets("Reservation").Range("B8:D8").Copy
    Worksheets("Bookninger").Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Worksheets("Reservation").Select
    Application.CutCopyMode = False
End Sub