Change cell values with VBA code

[AirOliver]

I have a sheet with values in a column (say J) and I would like to convert those values to minutes.
Normally I could just insert a new column to the right (column K) and create a formula (=TEXT(J2/86400; "tt:mm:ss"), fill downwards, so it converts the values in each cell to minutes and seconds and format the cells to (tt:mm:ss). Then convert the new column (K) to the value of the formula, so I can delete the original column (J). I can't do this manually every time and macro didn't work for me.

That's why I want this to be done easily with a VBA code when pressing a button.

 

[rpaulson]

Sub do_It()
For r = 2 To Cells(Rows.Count, "J").End(xlUp).Row
    Cells(r, "K") = Format(Cells(r, "J") / 86400, "hh:mm:ss")
Next r
End Sub