I figured it out for changing background. It seems to work. Any modifications suggested will be taken into consideration. Appreciate everyone who contributed.

Sub CopyBackground()
Dim myCells As Range
Dim celTable As Cell
Dim I As Long
Dim J As Long

I = ActiveDocument.Tables(7).Rows.Count

J = ActiveDocument.Tables(4).Rows.Count

For N = 1 To I
Set celTable = ActiveDocument.Tables(7).Cell(N, 3)

ActiveDocument.Tables(4).Cell(N, 3).Shading.BackgroundPatternColor = celTable.Shading.BackgroundPatternColor
Next N


End Sub