Copy & PSV, then add formats

[VegasNath]

Code: Select all

wb1.Sheets("Detail").Range("B" & j & ":BS" & j).Copy Destination:=(wb2.Sheets("Detail").Range("B" & i))

How can I adjust this to paste as special values, but then copy the formats from wb2.Sheets("Detail").Range("B" & i - 1) (down a row)

[HansV]

' Copy range on wb1
wb1.Sheets("Detail").Range("B" & j & ":BS" & j).Copy
' Paste special values only to range on wb2
wb2.Sheets("Detail").Range("B" & i & ":BS" & i).PasteSpecial Paste:=xlPasteValues
' Copy row above
wb2.Sheets("Detail").Range("B" & (i - 1) & ":BS" & (i - 1)).Copy
' Paste special formats only
wb2.Sheets("Detail").Range("B" & i & ":BS" & i).PasteSpecial Paste:=xlPasteFormats

[VegasNath]

Thanks Hans