pasteformats

[288enzo]

Will someone please explain what is wrong with this?

The first line works perfectly, when ran separately I can see the all contents with the copy box around it.

    Range(Range("H7"), Range("H7").End(xlDown)).Copy
    Range(Range("I7"), Range("I7").End(xlDown)).PasteSpecial Paste:=xlPasteFormats

On the second line I get, Run-time error 1004 - PasteSpecial method of Range class failed.

Thank you,

 

[Joe4]

You only need to identify the first cell of the range that you want to paste into:

    Range(Range("H7"), Range("H7").End(xlDown)).Copy
    Range("I7").PasteSpecial Paste:=xlPasteFormats

 

[288enzo]

You only need to identify the first cell of the range that you want to paste into:

    Range(Range("H7"), Range("H7").End(xlDown)).Copy
    Range("I7").PasteSpecial Paste:=xlPasteFormats

So simple, thank you very much.

 

[Joe4]

You are welcome.