儲存格無資料時往上遞補?

問的真簡單!!!
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = Empty Then Cells(i, 1).Delete Shift:=xlUp
Next
End Sub