Minusculas - Mayusculas

Buen día grupo

tengo una hoja de cálculo hoja1 con una serie de datos que a través de un
botón copia a otra hoja hoja2 en forma de lista. lo que deseo saber es como
hago para que cuando copie la celda j4, de la hoja1 a la hoja2, me la copie
siempre en mayusculas así enla hoja1 el la celda se encuentre en minuscula

una fracción del código es la siguiente.

Private Sub btnIngresaarVentas_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("Inventario")
'Encuentra la siguiente fila vacia
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Copia los datos a la hoja
ws.Cells(iFila, 1).Value = "Venta"
ws.Cells(iFila, 2).Value = Worksheets("Movimiento").Range("j3")
ws.Cells(iFila, 3).Value = Worksheets("Movimiento").Range("j4")

etc...

gracias

Jorgef