Makro wird nicht ausgelöst

Private Sub Worksheet_Calculate()
If Range("B6") = 1 Then
Range("D4") = Range("D7")
If Range("B6") = 2 Then
Range("D4") = Range("D8")
If Range("B6") = 3 Then
Range("D4") = Range("D9")
End If
End If
End If
End Sub

Wenn in Zelle B6 die 1 steht (durch eine Formel) soll der Wert aus Zelle D4 in die Zelle D7 Kopiert werden
Wichtig ( nur der Wert, nicht die Formel), wenn der Wert in B6 2 ist soll der Wert von D4 in D8.........
Aber leider passiert garnichts!!
Woran könnte das liegen
Gruß Werner