تکه کد حذف برخی از ستون های اکسل

سلام با این تکه کد می توانید هر دسته از ستون های فایل اکسل را حدف نمایید.

Sub delete()
 For i = 2076 To 1 Step -1
  If Cells(48, i) = 0 Then ' در صورت صفر بودن '
   Columns(i).delete Shift:=xlToLeft
  End If
 Next i
End Sub

نکته مهم در این تکه کد پیمایش از انتها به ابتدا است . کشف علت این امر را به خواننده واگذار میکنم