aswathy0001
New member
Code:
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