copy cell formats, but not background color

[Ken Cowen]

I have a macro that copies the formats from a top row of data to the end of the data. I have started to highlight certain data with different background colors which I do not want to lose. Is there a way to copy formula (number formats, date formats, column alignments, fonts) but not the background color? I suppose I could temporarily save the original colors, cell by cell, to another location, then restore it after the process runs to bring in new data, and the code below is run to copy the formats.
Thanks
Ken

'make formats consistent with top row


R.Cells(1, 1).Resize(1, ActiveSheet.UsedRange.Columns.count).Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False