Excel : un Do-loop simple pour copier et coller et créer un tableau

Je souhaite faire un Do-loop simple (je pense !) pour ce qui suit : Mon programme simple fonctionne comme je le souhaite, mais je pense qu'il y a un moyen plus facile car je souhaite le répéter 1000 fois. Peut-être en utilisant une sorte de boucle ? Do-Loop ou autre. En bref, je veux :

1. copier le contenu de A1
2. Collez-les dans B1
3. copier la cellule C1 (elle comporte une formule simple qui agit sur B1)
4. copier la 'valeur' (uniquement) de C1 dans D1 (qui sera un tableau de ces valeurs)

Je souhaite faire cela pour A1 à A1000 et obtenir un tableau de valeurs D1, D2, ..., D1000 (peut-être sous forme de tableau carré). Les cellules B1 et C1 restent fixes.

Mon programme est ci-dessous :

Sub PasteSpecial_Examples()

    Range("A1").Copy Range("B1")
    Range("C1").Copy
    Range("D1").PasteSpecial Paste:=xlPasteValues

    Range("A2").Copy Range("B1")
    Range("C1").Copy
    Range("D2").PasteSpecial Paste:=xlPasteValues

    Range("A3").Copy Range("B1")
    Range("C1").Copy
    Range("D3").PasteSpecial Paste:=xlPasteValues

    Range("A4").Copy Range("B1")
    Range("C1").Copy
    Range("D4").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

End Sub