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
Bookmarks