Excel, flytte en række med data

Sub tst()
fra = ActiveSheet.UsedRange.Row
til = ActiveSheet.UsedRange.Rows.Count
Range("A" & fra & ":IV" & fra).Copy Range("A" & fra + til)
End Sub

Hvis den skal flyttes så :

Sub tst()
fra = ActiveSheet.UsedRange.Row
til = ActiveSheet.UsedRange.Rows.Count
Range("A" & fra & ":IV" & fra).Cut Range("A" & fra + til)
End Sub

Tak for et hurtigt svar. Desværre er jeg ikke så velbevandret i VB at det helt er nok. Hvis det er muligt vil jeg være taknemmelig for lidt flere detaljer omkring løsningen.
pft.
pb

1 Kopier koden herover
2 Tilbage i Arket taster du ALT+F11
3 I menuen Insert vælger du Module
4 Indsæt koden der

5 Tilbage i Arket taster du ALT+F8
  her kan du evt. under Indstillinger tildele en genvejstast
6 Klik på tst og klik Afspil

Du kan også oprette en knap via Formular-menuen til koden

?

Hvordan går det ?