If is empty auto fill condition- loop through for first blank row/cell

interesting, I took out the Case for the bold.font and just left it in the .value. 

it still did not generate the Case 2: Cells(i, 1).Value = "Unbilled Vendor Invoices Pending Client Payment"

but still code worked for 
Case 1: Cells(i, 1).Value = "Billed Vendor Invoices Pending Client Payment"
Case 0: Cells(i, 1).Value = "Vendor Invoices to Pay"

This is odd that it is calling same logic and one code produces but the other does not. I am relatively new to coding so maybe I will see this again sometime.