Bereich kopieren

Gerne würde ich vom aktivem Blatt einen Wert in eine andere Mappe kopieren. Der Befehl erkennt von wo (aktivem Mappe) er die Zahl nehmen muss, und gibt dieser dann auch in der richtigen Mappe wieder. Nur das Problem ist das es keine Zahl wiedergibt sondern die Formel (aus der die G23 die Summe entnimmt. Gerne würde ich einfach die Zahl übernehmen.
Bin um Hilfe dankbar.
Gruess Roger

Sub BereichKopieren()
Range("D23:G23").Select
Selection.copy
Sheets("Produkte").Select
Range("I3:J3").Select
ActiveSheet.Paste
End Sub