Copy and paste as values

[mbuckner]

Greetings,

I have been copying a cell and pasting to the same cell and the next 6 blank cells below as a value...

Can a macro handle this redundant manual process?

Best regards,

Mike

 

[jimboy]

Hi Mike - this will copy the activecell to the selected cell and the cells below:

Range(ActiveCell.Address, ActiveCell.Offset(6, 0)) = ActiveCell.Value

This will copy cell A9 to A9:A15:

Range("A9:A15") = Range("A9").Value

Regards

 

[Scott Huish]

ActiveCell.Resize(7).Value = ActiveCell.Value

 

[mbuckner]

Thank you, thank you, and thank you ......

All is good now .....

Best regards,

Mike