Try this:
Sub Change colour()
Range("B1:B20").Interior.Color = Range("G1:G20").Interior.Color
End sub