Copy&Paste from another workbook to the first blank row and keep format

[Anna_Llorens]

Hi everyone,
I want to copy and paste information from one workbook to the other, and I want this information to be copied in the first blank row, but I want to keep the formating and the formulas. I khew how to do it but only pasting values:

Sheets("Sheet1").Range("D23").Copy
Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Can anyone help me to paste not only values but as well formulas and formatting?
Thanks a lot!

 

[Fluff]

Hi & welcome to MrExcel.
Try it on one line like

Sheets("Sheet1").Range("D23").Copy Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1, 0)

 

[Anna_Llorens]

Hi & welcome to MrExcel.
Try it on one line like

Sheets("Sheet1").Range("D23").Copy Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1, 0)

Thanks.
And for a different cell, how can I paste value and format? I tried "xlPasteValuesAndNumberFormats", but doesen't keep the background color, only the number format (Decimals, currency..)

 

[Fluff]

You will need to paste values & formats separately.

 

[Anna_Llorens]

You will need to paste values & formats separately.

Thanks! Working now

 

[Fluff]

You're welcome & thanks for the feedback.