Flyt tal i macrofil ned til næste tomme celle

Har indspillet en macro i Excel.

Sub Test()
\'
\' Test Makro
\' Makro indspillet 22-08-2001 af Duron750MHz
\'

\'
    Range(\"D4\").Select
    Selection.Copy
    Range(\"D16\").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub

Problemet er, at tallet i celle D4 ændres hver dag. Tallet fra dag ét skal flyttes til D16, og det det er så meningen at de efterfølgende dages tal skal flyttes til næste tomme celle (D17, D18 osv) for at disse linier efter en given periode kan summeres.

Hvordan kan dette lade sig gøre?

På forhånd mange tag

Peter