from sheet1 Copy w relative reference and paste as a value to sheet2 but next empty row

[AndyJR]

Hi,

My code copy and paste well, but it's pasting Formula. (i need to paste as value)

i'm missing the spot where to insert the snipped to paste as a value to sheet2

Please can someone help me?

This is my code

ActiveCell.Range("C1:AE2").Copy Sheets("sheet2").Range("A1048576").End(xlUp).Offset(1, 0)

this is what im doing:

On sheet1 i place the cursor on the row to be copy then pressing the shortcut Ctrl+j , the code paste such row on the next empty row
of to sheet2. (range C4:AH4)


Thanks!!

 

[Yongle]

Try

ActiveCell.Range("C1:AE2").Copy
Sheets("sheet2").Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValuesAndNumberFormats)