Removing blanks where blanks show blank but are code to show blank.

Mark, your "Macro4" should be:

Sub Macro4()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Petty Cash").Range("A2:Q" & Sheets("BDC2").Range("C" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF('BDC2'!RC16= ""petty cash"",'BDC2'!RC, """")"
Application.Calculate
For Count = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
   If Range("A" & Count) = "" And Range("C" & Count) = "" Then Rows(Count).Delete
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub