Need Help with AutoFill

[gtbb]

Hi All -

I need to copy a number in cell D2 down to the last row but the last digit is increased in each cell. Is there a way to change or modify the code below so that the copied number does not change. Thanks for your help!


LastRow = Range("A65536").End(xlUp).Row
Selection.AutoFill Destination:=Range("D2:D" & LastRow)

 

[vaskov17]

Sub FillCol()
Range("D3", Selection.End(xlDown)).Value = Range("D2").Value
End Sub