Sheets("Inputs").Select
       Dim i As Long, Lastrow As Long
       Lastrow = Range("D" & Rows.Count).End(xlUp).Row
       For i = Lastrow To 1 Step -1
        If Cells(i, "D").Value = "" Then
            Cells(i, "D").EntireRow.Delete
        End If
    Next
    
  
    

    Sheets("Inputs").Select
    Cells.Find(What:="Business Agreement ID", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.Replace What:="Business Agreement ID", Replacement:="Invoice Number", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Kindly look into this on priority