Compare dos columnas, pero solo las primeras 4 letras – vba excel

Tengo 2 columnas: Columna A y Columna B, llena de diferentes elementos. La columna B siempre es más corta (tiene less elementos que la columna A). Necesito una fórmula de VBA en Excel 2007 para hacer lo siguiente:

1) Compare las primeras 4 letras de los ítems en la columna B con las primeras 4 letras de los ítems de la columna A

2) Encuentre una coincidencia en la columna A y copie todo el contenido de la celda en la columna A a la columna C, junto al elemento en la columna B que coincida.

Esto es lo que hice hasta ahora:

Sub Compare() Dim Range1 As Range, Range2 As Range, Rng1 As Range, Rng2 As Range Dim x As Long xTitleId = "Compare" Set Range1 = Application.Selection Set Range1 = Application.InputBox("Range1 :", xTitleId, Range1.Address, Type:=8) Set Range2 = Application.InputBox("Range2:", xTitleId, Type:=8) Application.ScreenUpdating = False For Each Rng1 In Range1 xValue = Rng1.Value For Each Rng2 In Range2 x = Rng2.Row If xValue = Rng2.Value Then Rng1.Copy ActiveSheet.Range("C" & x).PasteSpecial End If Next Next Application.ScreenUpdating = True End Sub 

Este código hace el trabajo, pero compara palabras completas y necesito solo las primeras 4 letras. Sé de la function a la izquierda, pero no sé cómo implementarla aquí. ¿Alguien puede ayudarme?

La function que necesita es la siguiente:

 test = Left("YOURVALUE",4) 

Por supuesto, también existe la function opuesta:

 test = Right("YOURVALUE",5) 

En primer lugar, el resultado en la testing es "TU" y en el segundo caso es "VALOR"

Para copyr el valor en la columna C puedes usar dos estrategias:

 ActiveSheet.Range("C" & x).Cells(row_index, column_index) 

o

 ActiveSheet.Range("C" & x).PasteSpecial