Sub Del()
num = ActiveSheet.UsedRange.Rows.Count()
For i = 1 To num
If Cells(i, 9) = "" Then
Rows(i).Delete
End If
Next
End Sub
Sub Del()
num = ActiveSheet.UsedRange.Rows.Count()
For i = 1 To num
If Cells(i, 9) = "" Then
Rows(i).Delete
End If
Next
End Sub