Tạo Macro để xóa những dòng trống trong Excel

Macro dưới đây có tác dụng xóa những Dòng ( Row ) không chứa bất kì nội dung nào
  Macro dưới đây có tác dụng xóa những Dòng ( Row ) không chứa bất kì nội dung nào
Sub DeleteBlankRows1()Dim i As Long    With Application        .Calculation = xlCalculationManual        .ScreenUpdating = False       For i = Selection.Rows.Count To 1 Step -1        If WorksheetFunction.CountA(Selection.Rows(i)) = 0