Problema de mayúsculas y minúsculas de VBA

Hoja de trabajo secundaria privada_Change(ByVal Target As Range)

Dim iamp;, jamp;, str1$

Si Target.Address = "$B$2" Entonces

i = Range("H65536").End(xlUp).Row 1

str1 = UCase(Target.Value)

Si i lt; Entonces i = 4

Para x = 4 para i

Si Cells(x, 8) = str1 y Cells(x, 9) = "" Entonces

Celdas(x, 9) = str1

Ir a aa

Finalizar si

Siguiente

Celdas(i, 8) = str1

aa:

Application.EnableEvents = False

Target.ClearContents

Target.Select

Aplicación. EnableEvents = True

Finalizar si

Finalizar sub