How to Paste Special into the next empty row

[Haywomen]

Hi,

I m trying to paste only the value from a merged cell ("C10:K10"), to the next empty cell in column N. The code I am using unsuccessfully is below:

Range("C10:K10").Copy
Range("N" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.PasteSpecial xlPasteValues
Application.ScreenUpdating = True

Please can someone give me some advice.

Thank you.

 

[NoSparks]

Try

Range("N" & Rows.Count).End(xlUp).Offset(1).value = Range("C10").value

 

[DanteAmor]

Hi,

I m trying to paste only the value from a merged cell ("C10:K10"), to the next empty cell in column N. The code I am using unsuccessfully is below:

Range("C10:K10").Copy
Range("N" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.ScreenUpdating = True

Please can someone give me some advice.

Thank you.

The PasteSpecial is in a cell.

Also, if you are only going to paste values, you can pass the value of a different cell, like the code of Nosparks. Here another option.

Range("N" & Rows.Count).End(xlUp)(2).Value = Range("C10").Value