VBA insert text based on the second letter of a text sting in another cell.

[Livin404]

Greetings, I already have the basic VBA but I just need to fine tune it to pick up ANY letter except the Letter B.
The VBA I'm using is

Sub Depositioner()
    Dim i As Long
    For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Select Case Left(ActiveSheet.Cells(i, 1).Value, 2)
            Case "AV"
                ActiveSheet.Range("G" & i).Value = ActiveSheet.Range("G" & i).Value & " DEPOSITIONER"
        End Select
    Next i

End Sub

However I need the wildcard the first letter. I tried using both "?V", and "*V". I am hoping to have this apply to any letter or number in the first position with the Exception of the letter B.

Thank you vey much indeed.

 

[DanteAmor]

Try this:

Sub Depositioner()
  Dim i As Long
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Left(Cells(i, 1).Value, 2) Like "*V" Then
      Range("G" & i).Value = Range("G" & i).Value & " DEPOSITIONER"
    End If
  Next i
End Sub

 

[Livin404]

Try this:

Sub Depositioner()
  Dim i As Long
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Left(Cells(i, 1).Value, 2) Like "*V" Then
      Range("G" & i).Value = Range("G" & i).Value & " DEPOSITIONER"
    End If
  Next i
End Sub

That is beautiful, in reference to part B to the question. I just need one little exception to the asterisk. That is I need this rule to be ignored in the first letter is a Letter B. Thank you so much.

 

[DanteAmor]

That is I need this rule to be ignored in the first letter is a Letter B.

I skipped that part. Try this

Sub Depositioner()
  Dim i As Long
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Left(Cells(i, 1).Value, 2) Like "*V" And Left(Cells(i, 1).Value, 1) <> "B" Then
      Range("G" & i).Value = Range("G" & i).Value & " DEPOSITIONER"
    End If
  Next i
End Sub