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