cell 刪除列的問題

各位前輩 我在cell刪除列的方面遇到困難

data如下 是一個6518的cell內容有字串也有數字
code如下  我想用個判斷式 將cell中每列的第14行判斷是否等於37,如果true則刪除那整列
結果如下  出現這error的結果

我知道可能是for迴圈的設定導致(每遇到37這個數字就刪除一列,以至於cell變成6518→6418→6318 等等的結果)
請問各位有經驗的前輩我該如何改善這問題?