Sub Del_Empty()
Dim row As Integer, col As Integer
row = 1
col = 1
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p> </o:p>
'suppose you have 100 rows with data in the sheet
<o:p> </o:p>
For row = 1 To 100
'delete the row if there is no data in the first column
If Sheet1.Cells(row, col).Value = "" Then
Sheet1.Rows(row).Delete
End If
Next
<o:p> </o:p>
End Sub
Dim row As Integer, col As Integer
row = 1
col = 3
'suppose you have 100 rows with data in the sheet
For row = 1 To 100
'delete the row if there is no data in the first column
If ecn.Cells(row, col).Value = "" Then
ecn.Rows(row).Delete
End If
Next