Try the below code on a copy of the workbook you are using.


Sub deleteRows()
    Dim x As Long
    Dim last_Row As Long

    last_Row = Worksheets("Sheet1").Range("A65536").End(xlUp).Row

    For x = last_Row To 1 Step -1
'If there is a value in B then copy value in row below in "N" up one row.
'Delete the row below.
        If Worksheets("Sheet1").Range("B" & x).Value <> "" Then
            Worksheets("Sheet1").Range("N" & x).Value = Worksheets("Sheet1").Range("N" & x + 1).Value
            Worksheets("Sheet1").Cells(x + 1, 14).EntireRow.Delete
        End If
'If range B and F is empty then delete that row.
        If Worksheets("Sheet1").Range("B" & x).Value = "" And Worksheets("Sheet1").Range("F" & x).Value = "" Then
            Worksheets("Sheet1").Cells(x, 1).EntireRow.Delete
        End If
    Next x
End Sub