Pasar dato de listbox a varias celdas diferentes en excel

Nuevamente quisiera me puedan ayudar. Tengo un formulario en donde lleno un listbox con diferentes datos y estos los quiero pasar a una hoja temporal para imprimir. Trato de usar el siguiente comando pero no me resulta.

Private Sub CommandButton2_Click()
Dim i As Long
Dim uf As Long
    With Hoja9
  uf = .Range("B" & Rows.Count).End(xlUp).Row + 7
  uf2 = .Range("G" & Rows.Count).End(xlUp).Row + 7
  uf3 = .Range("L" & Rows.Count).End(xlUp).Row + 7
     For i = 0 To ListBox1.ListCount - 7
       .Range("B" & uf & uf2 & uf3) = ListBox1.List(i, 0) 'Codigo Barras
       .Range("B" & uf & uf2 & uf3) = ListBox1.List(i, 1) 'Producto
       .Range("B" & uf & uf2 & uf3) = ListBox1.List(i, 2) 'Precio
                uf = uf + 7   'Esta es la cantidad de celdas que separa del primer registro
                Next i
                End With
End Sub

Esta es la hoja temporal donde quiero pasar los datos e imprimir

Quien pueda orientarme se lo agradecería...