Cut Insert row to selected row with inputbox

[RicardoMM]

Hello,

I'm new to VBA and macros in excel.
I've been trying to insert a full row in a different one by using an inputbox to select the row I want to move it to.
For example, if I have a row in line 16, IŽd like to have a macro that allows me to select the whole row, cut it, and insert it by typing the row I want to move it to.
So far I have this code, but it doesnt work properly (it inserts a blank row after writing in the inputbox):

Sub Macro1()

Rows(CStr(ActiveCell.Row)).Select
Selection.Cut
Rows(Application.InputBox("Please enter row number.")).Select
Selection.Insert Shift:=xlDown

End Sub


Please, could someone help me?

Thank you

[SjonR]

this helps?

Please Login or Register  to view this content.

[RicardoMM]

It does move the row to the one I want, but it leaves a blank space where it was, and replaces the text of the destiny row instead of moving it down.

I would need keep all the rows and not leave any blank spaces.

Thank you anyways

[Akuini]

Maybe this:

Please Login or Register  to view this content.

[RicardoMM]

YES!! That's it! Thank you very much!

[Akuini]

You're welcome, glad to help, & thanks for the feedback.