Insertar filas a formato excel según registros en listbox

Tengo un formulario (Uf_EntradaMaterial) en el cual capturo información que posteriormente se pasa a un listbox ( Listbox2), hasta aquí todo me funciona muy bien, posteriormente debo pasar la totalidad de la información contenida en el listbox a un formato contenido en una hoja del libro de excel de nombre Fmto_EA, lo que necesito es que cuando el número de items contenidos en el listbox sea superior a 47, me inserte en la hoja del formato a partir de la fila 57, una fila por cada registro adicional que haya en el listbox, actualmente utilizo el siguinte código, pero no he logrado hacer que me funcione correctamente.

Set he = Sheets("Fmto_EA")
    j = 57
    For e = 0 To Uf_EntradaMaterial.ListBox2.ListCount - 1
     If Uf_EntradaMaterial.ListBox2.ListCount - 1 > 47 Then
        he.Rows(j).Insert
        he.Cells(j, "B") = Uf_EntradaMaterial.ListBox2.List(e)
     End If
    Next

Agradezco inmensamente al experto que me pueda colaborar con este tema

Añade tu respuesta

Haz clic para o