Rafael, para agilizar uma resposta, o melhor e postar um modelo de sua planilha (não imagem) com alguns dados fictícios se necessário, assim evita que tenhamos que "montar" uma e escrever seu código para poder analisa-lo melhor (nem sempre a leitura de um código possibilita identificar algum equivoco)
Para a maiúscula experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
'By Reinaldo
Dim myRng As Range
Set myRng = Union(Range("B2:B1000"), Range("C2:C1000"), Range("F2:F1000"))
Target.Select
If Not Intersect(Target, myRng) Is Nothing Then
    Target = UCase(Target)
End If
End Sub

Olá, Reinaldo! Foi exibida a mensagem de que não há recursos suficientes para exibir tudo, em loop, após inserir um dado na coluna C.
A planilha foi postada num fórum anterior, dá para escrever o código sobre o arquivo do link.
Obrigado

Segue a planilha informada

Observei que a solução funciona na coluna B "Cliente", mas na coluna C "Produto" continua a mensagem de erro do Excel "não há recursos suficientes para exibir tudo". Talvez, algo no código entra em loop no momento que digito a coluna C.

Não tenho esse erro, no exemplo funciona da coluna B e também na C (que possui validação)

Não consegui por aqui, conforme dito. Mas tenho outro desafio aqui, com a planilha mais desenvolvida!
Grato...