VBA Programmierung

Hallo zusammen,

der Wert aus Zelle L30 und N30 soll ins wb2 kopiert werden funktionier so weit auch ganz gut außer bei der Zelle N30 und N38 in diesen beiden Zellen ist eine Formel hinterlegt deswegen überträgt es beim kopieren nur ein #NV, daher soll hier nur der Wert kopiert werden. Ich glaube es funktioniert mit einer Value funktion weis aber nicht genau weis jemand wo ich das einfügen muss das es funktioniert.

Private Sub öffneVersandübersicht_Click()
Dim wb2 As Workbook
Set wb2 = Workbooks.Open("Datei xyz")
ThisWorkbook.Activate

With Sheets(1)

.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)
.Range("L24").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Offset(1)
.Range("L30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "E").End(xlUp).Offset(1)
.Range("N30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "F").End(xlUp).Offset(1)
.Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "G").End(xlUp).Offset(1)
End With
End Sub

Gruß

Sheets(1).Range("K38").Copy   
wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues  
....

Private Sub öffneVersandübersicht_Click()
    Dim wb2 As Workbook
    Set wb2 = Workbooks.Open("datei xyz")  
    ThisWorkbook.Activate
    
    With Sheets(1)
           
            .Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)  
            .Range("L24").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Offset(1)  
            .Range("L30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "E").End(xlUp).Offset(1)  
            sheets(1).Range("N30").Copy wb2.Sheets(1).Cells(Rows.Count, "F").End(xlUp).Offset(1).PasteSpecial xlPasteValue  
            .Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "G").End(xlUp).Offset(1)  
            End With
End Sub