eliel, por falta de mais informações, tipo "digitar em determinada linha, fiz uma rotina basica onde em qualquer celula que digitar o valor digitado será multiplicado por 5, veja se seria mais ou menos isto o que pretende.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim sVlrMultiplica
    Dim sVlrDigitado
    
    sVlrMultiplica = 5 'Valor a multiplicar
    sVlrDigitado = Target.Value 'Valor Digitado
    
    Application.EnableEvents = False
    
    Target = sVlrDigitado * sVlrMultiplica 'Resultado Valor digitado X Valor Multiplicador
    
    Application.EnableEvents = True

End Sub

Mauro, não consegui usar seu macro.
Suponhamos que D3:J3, todo valor que eu digitar nessa linha quero que multiplique por um determinado valor.
Em anexo um exemplo, se puder colocar o macro e testar pra me devolver, agradeço.

Utilizei o mesmo valor multiplicador da rotina acima (5), e acrescentei as instruções para que seja efetuada a multiplicação somente se for digitado no Range D3 a J3, ficando :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim sVlrMultiplica
    Dim sVlrDigitado
    
    If Intersect(Target, Range("D3:J3")) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    sVlrMultiplica = 5 'Valor a multiplicar
    sVlrDigitado = Target.Value 'Valor Digitado
    
    Application.EnableEvents = False
    
    Target = sVlrDigitado * sVlrMultiplica 'Resultado Valor digitado X Valor Multiplicador
    
    Application.EnableEvents = True

End Sub

Veja o exemplo:

[]s

Muito obrigado Mauro, me desculpe a ingenuidade... mas não consegui adicionar isso na minha planilha, como você fez?

eliel,

Clique com o Botão direito do Mouse na aba que pretende e selecione "Exibir Código" e na janela que abrir cole a rotina acima.

Agora o principal, você tem de salvar o arquivo como "Tipo Habilitado para Macros" - "xlsm", se não salvar neste tipo não irá funcionar.

[]s

Consegui fazer funcionar Mauro, porém..... hahahah
Quando algumas celulas da linha que quero apagar o macro "crasha", só consigo clicar em fim e depurar, quando eu clico em fim ele para de funcionar e não sei faze-lo funcionar novamente :X

Consegui resolver, é só habilitar o macro novamente pela segurança do macro. Porém o problema ao selecionar e apagar continua.

Se entendi, é só adicionar a linha abaixo antes da linha "If Intersect(Target, Range("D3:J3")) Is Nothing Then Exit Sub"

If Target.Cells.Count <> 1 Then Exit Sub

[]s

Deu certo Mauro, muito obrigado pela sua atenção e disposição! Nota 1000!

Consegui fazer funcionar Mauro, porém..... hahahah
Quando algumas celulas da linha que quero apagar o macro "crasha", só consigo clicar em fim e depurar, quando eu clico em fim ele para de funcionar e não sei faze-lo funcionar novamente :X

Esqueci de explicar que apos do erro, a rotina já havia passado pela instrução :
Application.EnableEvents = False
Esta instrução impede tipo que congela o processo e impede que continue, se não tivermos esta linha entraremos em um Loop infinito porque estamos utilizando o Evento CHANGE, e apos multiplicar é colocado o resultado na celula e assim multiplicar novamente infinitamente, por isto apos o calculo definimos a variável para "true"

Application.EnableEvents = True

Se acontecer algum erro novamente, é só criar uma rotina somente com esta instrução e rodar :

Sub EventsTrue()
Application.EnableEvents = True
End Sub

[]s