Convertir a mayúsculas solo celdas del inputbox

Muy buenos días en esta macro el input box inserta una fila y pide la clave el nombre y el giro del proveedor, cuando lo capturan no tiene cuidado de verificar que esta activada la tecla de mayúsculas por lo que se ve unos minúsculas otros mayúsculas, lo que encontré fue esta opción que indicaba celda activa y solo la primera celda se convirtia a myusculas las otras dos no, por lo que agregue toda la columna a hasta la ce pero si se tarda un poco como puedo lograr que solo se active para las tres celdas cuando se descarguen del inputbox estas es lo que le agregue a la macro y la macro completa esta más abajo agradezco de antemano tu apoyo
Set rgColA = Range("a5:c350")
Dim rg As Range
For Each rg In rgColA.Cells
rg.Value = UCase(rg.Text)
Next
i = InputBox("Ingrese el Numero de la Fila", "Insertar Fila")
Sheets("CONCENTRADO").Select
Range("A6").Select
Rows(i).Select
Selection.Insert Shift:=xlDown
Range(Selection, Selection.End(xlUp)).Select
ActiveCell.Offset(-0, 0).Range("A1").Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
ActiveSheet.Paste
Application.CutCopyMode = False
clave = InputBox("CLAVE PROVEEDOR")
nombre = InputBox("NOMBRE PROVEEDOR")
giro = InputBox("GIRO PROVEEDOR")
ActiveCell.Offset(-0, 0).Value = clave
ActiveCell.Offset(-0, 1).Value = nombre
ActiveCell.Offset(-0, 2).Value = giro
ActiveCell.Offset(-0, 3).Value = 0
Selection.Style = "Comma"
Set rgColA = Range("a5:c350")
Dim rg As Range
For Each rg In rgColA.Cells
rg.Value = UCase(rg.Text)
Next
ActiveSheet.Protect "NANY"