sub DeleteStuff()

Dim lastrow as Long, i as Long
Dim cell as Range

lastrow = cells(rows.count,"I").end(xlup).row
fori = lastrow to 1 step - 1
set cell = cells(i,"I")
if isnumeric(cell) then
if cell < 7 then
cell.offset(0,-4).Resize(1,6).Delete shift:=xlShiftLeft
end if
end if
Next
end sub

--
Regards,
Tom Ogilvy

"bodhisatvaofboogie" wrote:

I want to create a code to put into a macro that does this:

IF the value in column I is less than 7 Then Delete the cells within that
row from Column E to Column J and shift the rows to the right over into their
place.

Kinda wierd, I know. Don't ask :) Am I way off to try an If statement,
or should I go a different route? THANKS!!!