Copy and Paste a Range of Cells into the next blank row on another worksheet

[charlie_jd]

Hi there, I am trying to be able to copy a selected range which I have done below...

Sheet2.Range("A2", Range("H2").End(xlDown)).Select
Selection.copy

However, I want to now copy this to the next blank row on another worksheet within the workbook. Can anybody help me try do this please.
I did try to attempt it by doing ...

Sheet13.Range("A1").End(xlDown).Paste

But, it comes up with the message "Object doesn't support this property or method"

Also, is it possible when pasting that it pastes the values and not the formulas.

 

[Fluff]

Change Paste to PasteSpecial

 

[charlie_jd]

Change Paste to PasteSpecial

Hi there thank you for your help. It now says "Select Method of Range Class Failed"

Sheet2.Range("A2", Range("H2").End(xlDown)).Select
Selection.copy
Sheet13.Range("A1").End(xlDown).Offset(1).Select
ActiveSheet.PasteSpecial

 

[Fluff]

Why not try what I suggested?

 

[charlie_jd]

Why not try what I suggested?

I have

 

[Fluff]

What happened when you tried?

 

[charlie_jd]

It Comes up with the message "Select Method of Range Class Failed" and highlights the third line

 

[Fluff]

That is not what I suggested.
Where did I make any mention of using select?

 

[charlie_jd]

That was what I originally had. Do you mean the third line should be
Sheet13.Range("A1").End(xlDown).Offset(1).PasteSpecial

and not

Sheet13.Range("A1").End(xlDown).Offset(1).Select

Sorry new to Macros

 

[Fluff]

Yup that's right.