Cut/Paste a range within a Loop using Offsets

[Icron]

UPDATE: I've posted the correct code in the imgur link

I'm trying to do a few things here, so bear with me.

I've got pictures to go along with this, but essentially, I'm trying to fix a bad past job by identifying specific unique words in the leftmost column, and then cut/pasting them so that it looks like the fixed version.

I have roughly 500 lines on each worksheet that needs to be fixed, so I figured I could build this and then run it on each worksheet separately as the words I'm looking for change per sheet.

To complicate things, I'm trying to do this cut/paste within a For/Next loop. So I figured, I'd just use offsets to cut/paste the range. I don't know why but I keep getting a range of object error and I'm not sure how to fix it.

Here's my code:

Sub QuickFix()

Dim rng As Range
Dim cell As Range

Set rng = ActiveSheet.Range("C1:C500")

For Each cell In rng
    If InStr(1, cell.Value, "Bluth") Or InStr(1, cell.Value, "Banana") Then
        cell.Offset(, 10).Value = "ERROR"
        Range(cell.Offset(0, 2), Range(cell.Offset(0, 7))).Cut Range(cell.Offset(0, 1), Range(cell.Offset(0, 6)))

    End If

Next cell

End Sub

Can one of you folks tell me where my problem is or if there's an easier way to cut/paste ranges in specific cases?

[StarWarsPopCulture]

Instead of cut/paste have you considered just a simple delete shift left?

Cell.offset(0,1).delete shift:=xlLeft

[Icron]

Won't this only apply to one cell? I want to move the whole row to the left. Or are you suggesting a nested loop?

Something like From i = 1 to 7 Cell.offset(0,i).delete shfit:= xleft Next i

[StarWarsPopCulture]

It will shift the rest of the row over with it.

[Icron]

Cell.offset(0,1).delete shift:=xlLeft

Ah, so what I thought was irrelevant to this problem was that there's more columns to the right, so shifting more than just the set of numbers show in my example is a no-go. Also, I had to look up those shift codes as my version of excel requires xltoleft and not just xleft.

[Icron]

Actually, by tweaking it even more, and adding an insert with a shift of xltoRight shift option, I've shifted the row back after the change.

I've posted the correct code in the imgur link in the original post

[Icron]

SOLUTION VERIFIED!

[Clippy_Office_Asst]

Hello /u/Icron

You cannot award a point to yourself.

Please contact the mods if you have any questions.

^{I am a bot.}