I'd put in another for each .. next and move through a range.
Something like ...
Next Cel
Dim olXRange As Range
Dim Cel As Range
Set olXRange = Range("A1:B1")
For Each Cel In olXRange
x = cel.column
For y = 1 To 3500
For inc = 1 To 9
Cells(y + 1, x).Select
Selection.Delete Shift:=xlUp
Next inc
Next y
Next Cel
I've not tested this but it should be ok.