Hacer que combobox cargue hoja en documento

Tengo dos combobox. El primero selecciona las carpetas y el segundo lista los documentos dentro del mismo.

Quisiera que la eleccion del archivo se cargue en la hoja2 del documento pues lo que hace de momento es copiar el nombre del documento en la hoja1

La macro es la siguiente.

Private Sub CommandButton1_Click()
On Error Resume Next
Dim uf As Integer
If ComboBox1 = Empty Then
MsgBox ("Debe seleccionar archivo"), vbCritical, "AVISO"
ComboBox1.SetFocus
Exit Sub
End If
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
Cells(uf + 1, 1) = ComboBox1
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
DisplayAlerts = True
Application.ScreenUpdating = True
Dim Path As String
Dim fila As Integer
fila = 2
'Se crea FileSystemObject que da acceso al sistema de archivos del sistema
Set fso = CreateObject("Scripting.FileSystemObject")
'Indicamos la ruta de donde vamos a obtener
Path = CreateObject("shell.application").browseforfolder(0, "Seleccione Carpeta", 0).Items.Item.Path
 If Path = "" Then
 MsgBox "No has seleccionado ningún directorio, selecciona un directorio .", , "AVISO"
 Exit Sub
 End If
'Definimos variables para determinar nombre de archivos y subcarpetas
Set carpeta = fso.getfolder(Path)
Set ficheros = carpeta.Files
'Archivos
For Each ficheros In ficheros
    b = ficheros.Name
    ComboBox1.AddItem b
Next ficheros
DisplayAlerts = True
Application.ScreenUpdating = True
End Sub