Zahl muß nach kopieren nochmal eingeben werden

Sub schritt3()
Dim a, b, c, d
a = "Wieviele Stunden?  "
b = "Anzahl Stunden"
c = "0,00"
d = InputBox(a, b, c, 9000, 7000)
Range("D24").Value = d        'Anzahl Stunden
Range("O1").Value = d        'Anzahl Stunden
End Sub

Dann kommt:
Range("M1:P1").Select
Selection.Copy
Sheets("Dezember").Select
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Hier nehme ich in Spalte C die Summe der Stundenwerte.
Mein Problem:
Die Summenformel rechnet nicht den neuen Betrag, sondern erst, wenn ich den Stundenwert nochmals von Hand eintippe?
Warum?
Die Stundenzahl steht nach dem kopieren immer linksbündig(Wie Text), nach dem eintippen wieder rechtsbündig.
Gruß Reinhardt.