Tell us what you want to achieve because you select Column I and delete it. You then delete it again. Do you want to delete 2 columns? If so, which ones? Columns I and J?
Don't select if not absolutely necessary.
This would delete 2 columns (I and J) also
Columns("I:J").Delete Shift:=xlToLeft
You then select the whole Column I and put a zero (0) in text in the empty cells.
If you want to enter zeros from the first empty cell in Column I to the last used cell in your used range, this should do that.
Dim lr As Long
lr = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range(Cells(Cells(Rows.Count, "I").End(xlUp).Row, 9), Cells(lr, 9)).Value = 0
If all else fails, attach a sample that represents your workbook with a before and after.
I guess while I was typing, Ben gave you the solution.
Bookmarks