В зависимости от вашей настройки, прочитайте строку 6 в массив, выполните замену, как у вас сейчас, и затем запишите массив обратно в строку 6.
Dim rowSix() as Variant
rowSix = employeews.Rows(6).Value
For i = 1 To Len(sFm)
employeews.Cells.Replace Mid(sFm, i, 1), Mid(sTo, i, 1), LookAt:=xlPart, MatchCase:=True
Next i
employeews.Rows(6).Value = rowSix
Обратите внимание, что это перезапишет формулы в строка 6, так что если это ваша установка, вам понадобится другой подход.