Can someone help. this is what I have so far...

Sub deleting_cells()

Columns("A:A").Select
Selection.Find(What:="Quantity", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(4, 0).Select
ActiveCell.Offset.End(xlToRight).Select
ActiveCell.Offset(0, -6).Range("A1").Select

' From this point I want to delete every cell to the left of this active
cell minus 1 (essentially the cell in column A) I have read through dozens of
posts, but can't seam to figure it out.
After deleteing these cells, I want to drop down to the next row, move to
the last to the right and continue deleting info as needed via a loop.

this is probably very easy, but I am new to the whole vba world.

Thanks
Peter