Macro to copy formula

[howard]

I have the following formula in cell M2

=IFERROR(VALUE(RIGHT(K2,1)&LEFT(K2,FIND("-",K2)-1)),VALUE(K2))

I would like VBA code to copy this formula from M2 down to the last cell in line with the last value in Col K. For eg if the last cell in col K containing data is K300 than the formula must be copied from M2 to M300 and then cut and pasted using paste special values into cell K2

Your assistance will be most appreciated

 

[wigi]

Sub f()

    Range("M2:M" & Range("K" & Rows.Count).End(xlUp).Row).FillDown

End Sub

 

[howard]

Thanks for the help, much appreciated