excel range selection in loop not working

Sub test1()Dim i As Integer
Dim acount
acount = Range("A" & Rows.Count).End(xlUp).Row


For i = 1 To acount
If Range("A:D" & i).Value = "" Then
Range("A:D" & i).Select
Selection.Delete shift:=xlUp
End If
Next i
i = i + 1




End Sub

Sub test1()Dim i As Integer
Dim acount
acount = Range("A" & Rows.Count).End(xlUp).Row


For i = 1 To acount
If Range("A" &  i &  ":D" & i).Value = "" Then
Range("A" &  i &  ":D" & i).Select
Selection.Delete shift:=xlUp
End If
Next i
i = i + 1

Sub test2()
Dim i As Integer
Dim acount

acount = Range("A" & Rows.Count).End(xlUp).Row
For i = acount To 1 Step -1
  If Application.CountBlank(Range("A" & i & ":D" & i)) = 4 Then Range("A" & i & ":D" & i).Delete shift:=xlUp
Next i
i = i + 1
End Sub