how could stop replace values between two ranges in the same sheet?

[tubrak]

Good morning
I want solve this problem , code will simply replace everything in column G with values from column C.
but the problem if I have values in column H , D also will replace everything in column H with values from column D.
I don't want it just keep the values without any replace . the replace could be between columns G,C.

Sub Demo1()

With Sheets(4). Range("B1") .CurrentRegion

        .Value2=. Offset(0, 4).Value2

End With

End Sub

any help for fix it ,please?