Copying a value into multiple cells

[chadski778]

Is there code I can use for copying a value in a particular cell into multiple cells. I have literally thousands of cells to copy into so if i used the copy and drag it would take forever. For example, if the value was in cell A1 and I wanted it copied into cells A2:A40000

Thanks

 

[pboltonchina]

Try this

Sub Copy()
Range("A1").Copy Destination:=Range("A2:A4000")
End Sub

 

[chadski778]

Could you modify that so it is the Active cell that is copied and pasted into all the cells immediately below it in the same column?

 

[pgc01]

... I have literally thousands of cells to copy into so if i used the copy and drag it would take forever. ...

Hi

Wky not, then, copy-paste. It's immediate.

 

[crusader]

Could you modify that so it is the Active cell that is copied and pasted into all the cells immediately below it in the same column?

Assuming the active cell is A1,

Sub CopyAndPaste()
ActiveCell.Copy Range("A2:A4000")
End Sub

Adjust range as desired.

 

[pboltonchina]

When you say 'all the cells below it' do you mean to to last row on the sheet or the last used row in a particular column?

 

[chadski778]

Sorry I mean all the cells to the last used row in the column of the active cell

 

[pboltonchina]

So you want to overwrite the current contents of the cells?

 

[Rick Rothstein]

Sorry I mean all the cells to the last used row in the column of the active cell

How about this macro then...

Sub CopyActiveCellDown()
  Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp)).Value = ActiveCell.Value
End Sub