Paste single value in range of cells

[Catenary]

The following code is supposed to enter a single value in each cell of a range. It fills the uppermost cell, but none of the others. The value in "D2" is entered in "C3", but the other 13 cells below "C3" remain blank.

Range("D2").Select
ActiveCell.Cut Range(ActiveCell.Offset(1, -1), ActiveCell.Offset(14, -1))

What am I missing? Thanks

 

[AlphaFrog]

Try something like this...

    With Range("D2")
        .Offset(1, -1).Resize(14).Value = .Value
        .ClearContents
    End With

 

[Catenary]

That worked, thank you. Now I have something new to learn about! (Resize)