Exclui os caracteres iniciais da célula ativa

Question

O código abaixo exclui 123 caracteres principais de uma cadeia de texto em um intervalo de células. O que eu tenho tentado descobrir sem sorte é alterá-lo para excluir os caracteres principais da célula ativa em vez do intervalo de células. Eu tentei mudá-lo para cada célula no Active.Cell ..... mas não funcionou. Alguém pode me ajudar com isso?

Sub Del()
Dim cell As Object

    For Each cell In Range("A2:A10")
        If Not IsEmpty(cell) Then
        cell.Value = Right(cell, Len(cell) - 123)
        Columns("A").HorizontalAlignment = xlCenter
    End If

    Next cell

    

Answer 1

Sub Del ()

Planilhas ("Planilha1"). Ativar

ActiveCell.Value = Direita (ActiveCell, Len (ActiveCell) - 123)

End Sub