¿Se puede crear una macro que extraiga el ultimo dígito de una celda y lo pegue en otra?

[/Hola 

Te paso la macro

Valora la respuesta para finalizar

Sub separar()
'Por Adriel
'https://www.todoexpertos.com
    Application.ScreenUpdating = False
    For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
        datos = Split(Cells(i, "C"), "-")
        On Error Resume Next
        Cells(i, "D") = datos(1)
    Next i
    Application.ScreenUpdating = True
    MsgBox "finalizado"
End Sub

Hola Adel muchas gracias por tu valioso aporte, mira la macro funciona, pero tal vez no me explique bien. La idea es que corte el ultimo dígito, siempre y cuando este precedido con una rayita y lo pegue en la columna siguiente eliminando de una la rayita. Ejemplo: 900975172-7 ubicada en la celda C4, cortar el numero 7 pegarlo en la celda D4 y eliminar la rayita. 37440575, como no tiene rayita ni dígito de verificación se deja así sucesivamente

Te anexo la macro

Sub Digito_Verificador()
'Por Dante Amor
    With Range("D3:D" & Range("C" & Rows.Count).End(xlUp).Row)
        .FormulaR1C1 = "=IF(MID(RC[-1],LEN(RC[-1])-1,1)=""-"",RIGHT(RC[-1],1),"""")"
        .Value = .Value
    End With
    MsgBox "Fin"
End Sub

Hola Dante, el código de macro no me genera ningún resultado, la idea es que corte los últimos dígitos de la celda C3 hacia abajo, siempre y cuando el numero este precedido con una rayita tal y como se muestra en la imagen y los pegue en la D3 hacia abajo. Quedo atento a su amable respuesta