Sub DeleteBlankRows()    Dim LastRow As Long    Dim i As Long        LastRow = Cells(Rows.Count, 1).End(xlUp).Row        For i = LastRow To 1 Step -1        If WorksheetFunction.CountA(Rows(i)) = 0 Then            Rows(i).Delete        End If    Next iEnd Sub