Boa noite!!

Considerando que o valor digitado será na coluna I.

Tente

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Count > 10 Then Exit Sub
    
    If Target.Column <> 9 Then Exit Sub
    
    If Target.Value <> "" Then Target.Offset(, -4) = Target.Value
End Sub

Att

Alexandre, obrigado pelo retorno...

Duas coisas:

Quando altero para "ok" o valor das células da coluna 10. a macro não está copiando os valores da coluna 9 e jogando para a coluna 5 seus valores.

Outro ponto é sobre a execução dessa macro. Existe a possibilidade dela ser executada através de uma botão de comando (sem ser no evento Worksheet_Change)? por exemplo, ao clicar no botão "executar macro", ela efetua a rotina descrita acima.

Bom dia!!

Caso esteve copiando da coluna errada ou para a coluna errada, tente entender o código e adaptar!

Sub AleVBA_12634()
     
    Dim c As Range, lastrow As Long
     
    lastrow = Cells(Rows.Count, "I").End(xlUp).Row
     
    Application.ScreenUpdating = False
     
    For Each c In Range("J1:J" & lastrow)
        If c.Value = "OK" Then Range("I" & c.Row).Copy Range("E" & c.Row)
    Next c
     
    Application.ScreenUpdating = True
     
End Sub

Att

Perfeito!!

Muito obrigado Alexandre!!

Bom dia!!

Eu fico feliz por ajudar, obrigado pelo retorno!!

Att