Relativ simpel kode

Jeg prøver at forbedre mine evner (helt fra bunden) og laver et par løsninger på nogle problemer med Makro. De 2 makroer i denne kode er indspillet, og virker fint hver for sig. Jeg vil derfor prøve at sætte dem sammen:

Sub Trial()
'
' Ny Macro
'

'
    If D4 = 0 Then
        Calculate
        Range("C1").Select
        Selection.Copy
        Range("D4").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
    Else
    End If
   
    If D4 > 0 Then
        Calculate
        Range("C1").Select
        Selection.Copy
        Range("D5").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
    Else
    End If
End Sub

Det er meningen at makroen, 1. gang den bliver brugt skal kopiere C1 ind i D4 (Dato og tidspunkt), derfefter skal den kopiere det ind i D5 de efterfølgende gange den bliver aktiveret.

På forhånd tak.