问VBA程序需要运行两次才能把数据清楚干净，而且运行时间很长，怎么优化啊？

下列代码 VBA程序需要运行两次才能把数据清楚干净，而且运行时间很长

Sub shanchu()

Dim i As Intege

Dim irow As Intege

irow = Sheet1.Range("b65536").End(xlUp).Row

For i = irow To 4 Step -1

If Range("b" & i) = "" And Range("c" & i) = "" And Range("d" & i) = "" And Range("e" & i) = "" And Range("f" & i) = "" And Range("g" & i) = "" And Range("h" & i) = "" And Range("i" & i) = "" And Range("j" & i) = "" And Range("k" & i) = "" And Range("l" & i) = "" And Range("m" & i) = "" And Range("n" & i) = "" And Range("o" & i) = "" And Range("p" & i) = "" And Range("q" & i) = "" And Range("r" & i) = "" And Range("s" & i) = "" And Range("t" & i) = "" And Range("U" & i) = "" And Range("V" & i) = "" And Range("W" & i) = "" And Range("X" & i) = "" And Range("Y" & i) = "" And Range("Z" & i) = "" And Range("AA" & i) = "" And Range("AB" & i) = "" And Range("AC" & i) = "" And Range("AD" & i) = "" Then

Range("b" & i).Select

Selection.EntireRow.Delete

End If

Next

End Sub寻求大神帮助如何优化