Sub rien()
Dim x As Integer
x = Range("B65536").End(xlUp).Row
Dim Cel As Range
Set myRange = Range("D1: D" & x)
For Each Cel In myRange
Cel.Replace _
What:="X", Replacement:=Cel.Offset(0, -2).Value, _
SearchOrder:=xlByColumns, MatchCase:=True
Cel.Offset(0, 81).Replace _
What:="X", Replacement:=Cel.Offset(0, -2).Value, _
SearchOrder:=xlByColumns, MatchCase:=True
Next
End Sub