Trække fra og ligge til

I excelark har jeg en kolonne(c) hvor jeg har et vist antal(f.eks 25) varer. I kolonne (d) kan jeg så skrive et tal f.eks 5. Tallet bliver så trukket fra kolonne (c) så der kun er 20 varer tilbage. Desuden forsvinder 5 tallet fra kolonne D. Dette gøres ved hjalp af denne kode:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D259")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, -1) = Target.Offset(0, -1) - Target
Target = ""
Application.EnableEvents = True
End Sub

Mit spørgsmål er så, hvordan koden skal se ud, hvis nu jeg vil have at de tal jeg skriver i kolonne E skal ligges til kolonne C, samtidig med at kolonne D stadig skal trække fra.

På forhånd tak for hjælpen