cut and return
i have this simple code.
all it does is cut the selection copy it on another page and return to
the original page. when back in the original page it should delete the
empty row that is left from the cut.
it does the job but is giving me debug error.
Sub updated()
Selection.Cut
Sheets("Sheet2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("sheet1").Select
Selection.Delete.Row
End Sub
ideas?
|