Copia excell

Ciao a tutti ragazzi, è la prima volta che vi scrivo come è la prima volta che tento di fare delle macro...
sono riuscito a scrivere questa macro, il problema è che mi copia la formula presente nelle celle, invece a me servirebbe che mi copiasse sono il numero presnete nelle cell.... sapete darmi una mano!?!
GRAZI MILLE in anticipo


Sub test_internet_inversa()

Dim wk1 As Workbook
Dim wk2 As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet

Application.ScreenUpdating = False

Set wk1 = ThisWorkbook
Set wk2 = Workbooks.Open(wk1.Path & "/" & "00.X.xlsm")
Set sh1 = wk1.Worksheets("Setup")
Set sh2 = wk2.Worksheets("Riepilogo mensile")

With sh2
.Range("L14:N14").Copy Destination:=sh1.Range("B3")
.Range("L17:N17").Copy Destination:=sh1.Range("B5")
.Range("N22").Copy Destination:=sh1.Range("B7")
.Range("P22").Copy Destination:=sh1.Range("B11")
.Range("N25").Copy Destination:=sh1.Range("B9")
.Range("P25").Copy Destination:=sh1.Range("B13")
.Range("N30").Copy Destination:=sh1.Range("B15")
.Range("P30").Copy Destination:=sh1.Range("B17")
.Range("N33").Copy Destination:=sh1.Range("B19")
.Range("P33").Copy Destination:=sh1.Range("B21")
.Range("N38").Copy Destination:=sh1.Range("B23")
.Range("P38").Copy Destination:=sh1.Range("B25")
.Range("N41").Copy Destination:=sh1.Range("B27")
.Range("P41").Copy Destination:=sh1.Range("B29")

End With

wk2.Save
wk2.Close

Application.ScreenUpdating = True

Set sh2 = Nothing
Set sh1 = Nothing
Set wk1 = Nothing
Set wk2 = Nothing

Exit Sub

Per essere alle prime "armi", sei bravo nel dichiarare le variabili e chiuderle. Manca in prima riga Option Explicit (che ti obbliga a dichiararle)

Ci sono diversi modi, io toglierei tutta la parte "With sh2" e metterei...
Per i Range("L14:N14") due righe ognuno. EX
sh2.Range("L14:N14").Copy
sh1.Range("B3").PasteSpecial 'casomai non funziona
'sh1.Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Per le celle singole, EX Range("N22").Copy puoi mettere
sh1.Range("B7") = sh2.Range("N22")...casomai
sh1.Range("B7") = sh2.Range("N22").value