VBA – Remove Blank Rows

as below: [vb] Sub DeleteBlankRows1() ‘Deletes the entire row within the selection if the ENTIRE row contains no data.   ‘We use Long in case they have over 32,767 rows selected. Dim i As Long       ‘We turn off calculation and screenupdating to speed up the macro.     With Application         .Calculation = xlCalculationManual[…]