无法将发送键值发送到特定的CELL

Question

我正在使用IME键盘将英语名称转换为古吉拉特语（印度）。 执行脚本DO WHILE时。.该脚本成功使用“ SendKeys”将英语名称转换为古吉拉特语，

Sub engtoguj_ref()
'
' Macro1 Macro
'

'
    Dim currange As Range
    Dim strlen As Integer
    Dim newstr As String
    Dim countr As Integer
    Dim engstr As String
    Dim gujloc As String
    countr = 0
    engstr = ActiveCell.Offset(0, -2).Value
    Do While (Len(engstr) > 0 And countr < 30)
       engstr = Range(ActiveCell.Offset(0, -2).Value).Value
       MsgBox (engstr)
       countr = countr + 1
       newstr = " " & engstr & " "
       SendKeys newstr, True
       DoEvents
       ActiveCell.Offset(1, 0).Select
       MsgBox (ActiveCell.Address)
    Loop
    Application.MoveAfterReturn = True
End Sub

Eng名称在B列中，古吉拉特语名称应该在C列中。相反，它将所有名称一起复制到C列中姓氏姓氏旁边的行中。