Hi

Try this:

LastRow = Range("A1").End(xlDown).Row
Range("B1").Copy
ActiveSheet.Paste Range("B2:B" & LastRow)

or

LastRow = Range("A1").End(xlDown).Row
Range("B1").Copy Destination:= Range("B2:B" & LastRow)

Regards,
Per

"Mathieu" skrev i meddelelsen
...
Hi, I am trying to copy cell B1 and them select B2 to B6 by code. So far,
I
fail by using this.

Selection.Resize(Range("A1").End(xlDown).Row).past e

How can I code it?

A B C
1 4 Select Copy
2 2
3 4
4 5
5 14
6 9