Delete Rows Cut
 

Does anyone know the appropriate syntax to delete a row or rows when it is
cut to a new destination? I'm sure this can be done in a single line of code,
but I can't crack it.

My code line so far looks like the following, but of course it leaves blank
rows behind that I want removed as it is cut:

Cells(lngX, 1).EntireRow.Cut
Destination:=Sheets(FUTURE.Name).Range("A65536").E nd(xlUp).Offset(1, 0)

Thanks much in advance.

Delete Rows Cut
 

Cells(lngX, 1).EntireRow.Cut _
Destination:=Sheets(FUTURE.Name).Range("A65536").E nd(xlUp).Offset(1, 0)

Rows(lngX).Delete