Перенести/Удалить один символ в ячейке

[Tirendus]

Пожалуйста, подскажите как удалить, а еще лучше сразу перенести один симво (например последний) из одной ячейки в другую?

есть конвертированный из пдф эксель документ, в нём цифры посъезжали со своих мест, надо бы их вернуть

я пробую делать через if

    If Cells(i, 7).Value = "" And Cells(i, 8).Value = "" Then
        Cells(i, 7).Value = Right(Cells(i, 4), 1)

собственно только тут и нужна цифра Cells(i, 7)

Естественно проверок будет больше, это как пример... догнать как копировать последний символ, я еще догоняю, но как его потом удалить из ячейки, с которой копирую, я не знаю. Пожалуйста подскажите как.
И если кто-то подскажет как проверять не является ли выделенный символ числом буду отдельно благодарен.

[The_Prist]

Option Explicit

Sub Test()
    If Not IsNumeric(Right(Cells(1, 1), 1)) Then    'если последний символ не число
        Cells(1, 2) = Cells(1, 2) & Right(Cells(1, 1), 1)    'подставляем последний символ в др. ячейку(в конец)
        Cells(1, 1) = Mid(Cells(1, 1), 1, Len(Cells(1, 1)) - 1)    'удаляем посл. символ из исходной ячейки
    End If
End Sub

[Tirendus]

спасибо, помогло

[Aent]

То что последний символ в ячейке является цифрой IMHO лучше проверять c помощью like так:

Dim s as string
Dim c as range  'проверяемая ячейка
'.....
s = c.value
if len(s) > 0 then
    if not right(s,1) like "#" then
         c.Value = left(s,len(s)-1)
         c.Offset(0,1).Value = right(s,1) & c.Offset(0,1).Value ' добавили слева 
    end if
end if

[Tirendus]

Аэнт, спасибо, с тобой конечно тяжело сравниться в части писания грамотного кода, но тот, что указал Прист мне более чем подошел, но твой я себе куда-нибудь запишу и постараюсь его понять... я сейчас разве что по макросрекордеру ориентируюсь