Sub CopyBackgroundColors()
Dim rngSrc As Range
Dim rngDest As Range
Set rngSrc = ActiveWorkbook.Sheets(1).Range("E8:G9")
Set rngDest = ActiveWorkbook.Sheets(1).Range("K14:M15")
CopyBackgroundColorsRange rngSrc, rngDest
End Sub
Sub CopyBackgroundColorsRange(rngSrc As Range, rngDest As Range)
Dim iCol As Integer
Dim iRow As Integer
Dim rngSrcCl As Range, rngDestCl As Range
If rngSrc.Columns.Count = rngDest.Columns.Count And rngSrc.Rows.Count = rngDest.Rows.Count Then
For iCol = 1 To rngSrc.Columns.Count
For iRow = 1 To rngSrc.Rows.Count
Set rngSrcCl = rngSrc.Cells(iRow, iCol)
With rngDest.Cells(iRow, iCol).Interior
<strong>.ThemeColor = rngSrcCl.Interior.ThemeColor
.TintAndShade = rngSrcCl.Interior.TintAndShade
.PatternTintAndShade = rngSrcCl.Interior.PatternTintAndShade</strong>
End With
Next
Next
End If
End Sub