Macro multiplicar y pegar valor

Esta es la rutina que necesitas:

Sub multiplica()
'x Elsamatilde
'obtengo el fin de rango sobre la col J
finx = Range("J" & Cells.Rows.Count).End(xlUp).Row
'recorro la col M hasta esa fila
Range("M4").Select
While ActiveCell.Row <= finx
If ActiveCell <> "" Then
 'si la celda tiene valor multiplico x K1
 ActiveCell.Offset(0, -2) = Round(ActiveCell.Value * Range("K1"), 2)
End If
'paso a la fila sgte y repito el bucle
ActiveCell.Offset(1, 0).Select
Wend
MsgBox "Fin del proceso"
End Sub

Entras al Editor de macros (con Alt y F11), insertas un módulo y allí copias la macro.

Ahora el libro deberá ser guardado con extensión xlsm, es decir con macros.