Is it possible to have a script delete a row if it doesn't have something in column B or F

I updated the code so you only have to change the name in one place.

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

    wksName = "enter_Name_of_Worksheet_here"
    last_Row = Worksheets(wksName).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(wksName).Range("B" & x).Value <> "" Then
            Worksheets(wksName).Range("N" & x).Value = Worksheets(wksName).Range("N" & x + 1).Value
            Worksheets(wksName).Cells(x + 1, 14).EntireRow.Delete
        End If
'If range B and F is empty then delete that row.
        If Worksheets(wksName).Range("B" & x).Value = "" And Worksheets(wksName).Range("F" & x).Value = "" Then
            Worksheets(wksName).Cells(x, 1).EntireRow.Delete
        End If
    Next x
End Sub