Excel-Makro programmieren (Umwandlung kg in to.)

Hallo, ich benötige ein Makro das in einer Excel Tabelle Daten (1000 kg in 1 to umwandeln kann).
Dieses Makro soll unabhängig von einer Zelle ausführbar sein. D. H das die Daten in verschiedenen Spalten und Feldern einer Zelle stehen können. Es soll laufen das die Zelle markiert wird und dann das Makro ausgeführt weren sollen.

Kann mir jemand helfen da ich mich mit Makros gar nicht auskenne.

Sub umrechnen()
Dim mcell As Range
  For Each mcell In Selection.Cells
     mcell.Value = mcell.Value / 1000
 Next mcell
End Sub