Excel 2013 - VB 7.1 - Macro for moving "one cell" down reports System Error & H80010108

[astra]

Hello to Excel forum.

I mostly read solutions and collect some good ideas from Excelforum :-)

However, I have one issue with code bellow:

Sub move_selection_down()
    Dim rOriginalSelection As Range
    Set rOriginalSelection = ActiveCell.Offset
    With rOriginalSelection
        .Select
        .Cut
        .Offset(rOriginalSelection.Rows.Count + 1, 0).Select
    End With
    Selection.Insert
    rOriginalSelection.Select
End Sub

When I check in debbuger it stops at point .Offset(rOriginalSelection.Rows.Count + 1, 0).Select.

Q: How I reproduced error message?

A: If I open excel file it works just fine and I can easily move cell value down.
However, once I change focus to another column and put some data to another cell and return back to desired cell to use again macro I get an error.

I put you an example of Excel screen:
You can see button and code of macro for that object. On left side is "red" marked cell I can move down. It Works fine till the moment I put any value in excell, if I return back to button than I get an error.

http://shrani.si/f/1S/Ij/4IPhU4n3/screen.png

To be honest, I'm not expert in programming. It seems excel or "macro is lost" when I abort to use down function for another work with data.

Thank you for any suggestion on that matter.

Matej