The following code searches column A for any cells containing a keyword, and moves those cells 1 row up and 2 columns to the right.
I'd like to delete the row that the moved cell used to occupy. Can someone please add a line to the code that will do that.
Thanks
I'd like to delete the row that the moved cell used to occupy. Can someone please add a line to the code that will do that.
Code:
Sub MoveCells()
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Len(WorksheetFunction.Substitute(c, "KEYWORD", "")) <> Len(c) Then
c.Cut c.Offset(-1, 2)
End If
Next c
End Sub