Sub Sample()
On Error Resume Next
Columns(1).EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
Sub Sample()
On Error Resume Next
Sheets("Sheet1").Columns(1).EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
Sub Sample()
On Error Resume Next
Sheets("1").Columns(1).EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
Sub DelRow()
Dim i As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = Sheets("1").Range("A" & Rows.Count).End(xlUp).Row
For i = LastRow To 2 Step -1
If Len(Trim(Range("A" & i).Value)) = 0 Then
Sheets("1").Rows(i).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
dim i , amnt as integer
amnt = ActiveSheet.UsedRange.Rows
for i=2 to amnt
if Cells(i,1) ="" then cells(i,1).entirerow.delet
next i
end sub
kr Eric