With Sheets("Insertion").Range("A2:G" & derli)
.Replace What:=ChrW(916), Replacement:="?", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
.Replace What:=ChrW(945), Replacement:="'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False