I found a function that founds the last used cell in a column.
Public Function GetLastCell(ByVal LastCell As Range) As Long Dim WS As Worksheet Dim LastCell As Range Dim LastCellRowNumber As Long Set WS = Worksheets("Sheet1") With WS Set LastCell = .Cells(.Rows.Count, "A").End(xlUp) LastCellRowNumber = LastCell.Row End With End Function
Now I need to delete all the rows above that row with a blanc cell in that column.
So the macro must find the last cell in a column, and then delete all the rows above that have a blanc cell in this column.
Can somebody help?