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

the below sub four is executing properly with the exception of this line- the conditions have not changed. The rest of the code does what I need it to, but when I run it the case2 ""Unbilled Vendor Invoices Pending Client Payment" does nothing. 

 CODE:
    Dim cnter As Integer

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    cnter = 0

    For i = 5 To lastRow
        If IsEmpty(Cells(i, 1)) Then
            Select Case cnter
                Case 0: Cells(i, 1).Value = "Vendor Invoices to Pay"
                Case 0: Cells(i, 1).Font.Bold = True
                Case 1: Cells(i, 1).Value = "Billed Vendor Invoices Pending Client Payment"
                Case 1: Cells(i, 1).Font.Bold = True
            BAD CODE ===>    Case 2: Cells(i, 1).Value = "Unbilled Vendor Invoices Pending Client Payment"
                Case 2: Cells(i, 1).Font.Bold = True
                Case Else: Cells(i, 1).Value = ""
            End Select
            cnter = cnter + 1
        End If
    Next i

Hi Steven

Can't say what is wrong with this code at the first glance as the other works according to you. Could it be a spelling mistake in the string or an extra space in worksheet cells?

By the way if this code is supposed to work on the same file as I made a macro for and if you only wish to set font bold that could be included in my previous code i.e:

Cells(i, 1).EntireRow.Interior.Color = 10092543

Cells(i, 1).Font.Bold = True

Perhaps you could upload a small file sample after removing sensitive information showing how the data look like and how you would like it to look after the change.

Alf

Hi Alf, 

this one I just want to have insert this text at the first break. 

BAD CODE ===>    Case 2: Cells(i, 1).Value = "Unbilled Vendor Invoices Pending Client Payment"

what's odd is that the code above it works
Case 1: Cells(i, 1).Value = "Billed Vendor Invoices Pending Client Payment"
Case 0: Cells(i, 1).Value = "Vendor Invoices to Pay"

Hi Steven

I did a bit of testing with your macro an I don't have any problem with filling the empty cells with the proper values but on the other hand I tested only a range with 16 values with three empty cells in that range.

What i did have problem with was the "Font.Bold" setting that I could not get to work so I had to change code a bit. As I use "Option Explicit" when writing macros I had to declare all variables.

Option Explicit

 Sub testCase()
 Dim cnter As Integer
 Dim lastRow As Integer
 Dim i As Integer

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    cnter = 0

    For i = 2 To lastRow
        If IsEmpty(Cells(i, 1)) Then
            Select Case cnter
                Case 0: Cells(i, 1).Value = "Vendor Invoices to Pay"
                Cells(i, 1).Font.Bold = True
                Case 1: Cells(i, 1).Value = "Billed Vendor Invoices Pending Client Payment"
                Cells(i, 1).Font.Bold = True
                Case 2: Cells(i, 1).Value = "Unbilled Vendor Invoices Pending Client Payment"
                Cells(i, 1).Font.Bold = True
                Case Else: Cells(i, 1).Value = ""
            End Select
            cnter = cnter + 1
        End If
    Next i
 End Sub

Alf

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.

This is rather strange. I've no problem with your code as far as I understand what you wish to do. I've uploaded a small file created in Excel 2010.

Since your macro specifies three cases only the three first empty cells are filled with text set to bold. The forth empty cell is not modified by macro.

Test and see if this macro works in your excel environment.

Alf