VBA 語法 delete?

各位大大好，小弟初學想請教下，
我有一筆資料，想設定P欄的第幾列只要是空白,該列就刪掉，
可是為什麼執行後，例如中間有８個空白列，卻只會刪掉４列或幾列，
都要執行好幾次才會完全刪掉空白列，請問是那裡寫錯了？程式碼如下：
Dim klj As Integer
klj = Sheets("按鈕").TextBox5.Value * 50
For i = 4 To klj
　 If Sheets("會計").Range("P" & i).Value = "" Then
　Sheets("會計").Rows(i).Select
　Selection.Delete Shift:=xlUp
　End If
Next i