Macro to Delete blank rows or column

[sriku]

Hi,
Can any one please suggest suggest macro to delete blank rows or column in the sheet.


Thanks,
Sriku

[sweep]

Sub DeleteBlankRows()
Dim lLastRow As Long, lCount As Long

lLastRow = ActiveSheet.UsedRange.Rows(UBound(ActiveSheet.UsedRange.Value)).Row
Application.ScreenUpdating = False
For lCount = lLastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(lCount)) = 0 Then Rows(lCount).Delete
Next
Application.ScreenUpdating = True
End Sub

Sub DeleteBlankColumns()
Dim lLastColumn As Long, lCount As Long

lLastColumn = ActiveSheet.UsedRange.Columns(UBound(ActiveSheet.UsedRange.Value, 2)).Column
Application.ScreenUpdating = False
For lCount = lLastColumn To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(lCount)) = 0 Then Columns(lCount).Delete
Next
Application.ScreenUpdating = True
End Sub