Yes this is possible, but what is the relation between A1 and B1:Z1+C7+E74.
For the following code I assumed that A1 could be any cell and that B1:Z1 is dependent of the row of the selected cell (so if A2 is selected then it will be B2:Z2). C7 and E74 are fixed locations.
First select the cell you would like to copy the color from and then run the following code:
Dim aColor, aRow As Integer
aColor = ActiveCell.Interior.ColorIndex
aRow = ActiveCell.Row
Range(Cells(aRow, "B"), Cells(aRow, "Z")).Interior.ColorIndex = aColor
Range("C7").Interior.ColorIndex = aColor
Range("E74").Interior.ColorIndex = aColor