Automatically move entire rows from one worksheet into another worksheet in the same workbook - please see the code that I used and explain why i have

[brandidk]

Good morning, I have an excel workbook that has two tabs. one is 2015 and the other is Shipping. Both sheets are identical. I have added a code in column Y (date shipped) and have received a Run-time error of "1004' - we can not do that to a merged cell. Please advise what I need to change in order for this to work. Please see the code below - the BOLD line is the error line.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Y:Y")) Is Nothing Then
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets("Shipped").Cells(Rows.Count, "Y").End(xlUp).Row + 1
Rows(Target.Row).Cut Destination:=Sheets("Shipped").Rows(Lastrow)
Rows(ActiveCell.Row).EntireRow.Delete
End If
End Sub

 

[brandidk]

The cells are merged because the report has other cells that have dimensions in inches and then in cm and weight in lbs and kgs. In order for the report to be easy to print and read that was how we set it up. To merge the other cells together so that they are in the center of the row. We require all the information to go from the first tab to the second tab without having to cut and paste and delete the lines.