Thank you to FLUFF13!

Sub Macro5()
    Range("D:D,F:F").Replace What:=Range("C65").Value, Replacement:=Range("C66").Value, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub