Delete a range of rows above blank cell

does anybody know the code that would delete a range of rows that lie directly above a blank row (or cell)

Hello d_rock90,

You need to know two things: the address of the blank row or cell, and the number of rows or cells to be deleted.

This example deletes the bottom 5 cells and rows on a worksheet. Column "A" is used to determine the last row on the active sheet.

Sub DeleteRowsAbove()
  
  Dim LastRow As Long
  Dim N As Long
  Dim Rng As Range

    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    N = LastRow - N + 1   'Number of cells or rows to be deleted

     'Use this code to Delete Cells
      Set Rng = Range(Cells(N, "A"), Cells(LastRow, "A"))
        Rng.Delete Shift:=xlShiftUp

     'Use this code to Delete Rows
      Set Rng = Range(Rows(N), Rows(LastRow))
        Rng.EntireRow.Delete Shift:=xlShiftUp

End Sub