Optimize Code

[Bass71]

Hello, I have the following code to determine if a cell is populated and if so, it cuts and pastes a range of text and then deletes the previous row. It seems as though there'd be a simpler way to accomplish this.

If ActiveCell(1, 0).Value = " x " Then
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Selection.Cut
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 0).Select
Selection.EntireRow.Delete
End If

Any idears?
Thanks............RO

 

[firefytr]

Can you give some examples? Also, how are you firing this code? From a standard procedure? Workbook/sheet event?

-----------
Regards,
Zack Barresse