Dónde modificar código Array en vba Excel para hacer que tome datos desde una fila específica para un Listbox

Si quieres cargar desde A2 hasta N y hasta la última fila con datos, puede ser:

Private Sub UserForm_Initialize()
  UserForm1.Lst_database.List = Hoja1.Range("A2:N" & Hoja1.Range("A" & Rows.Count).End(3).Row).Value
End Sub

Muchas gracias por tu ayuda Dante nuevamente, ¿hay alguna posibilidad de incluir datos como cabecera teniendo en cuenta que es un Listbox con más de 10 columnas sin que se produzca un error en excel y se reinicie?

Para poner encabezados, debes utilizar la propiedad rowsource y también te permite cargar más de 10 columnas.

Private Sub UserForm_Initialize()
  With Lst_database
    .ColumnHeads = True
    .RowSource = Hoja1.Range("A2:N" & Hoja1.Range("A" & Rows.Count).End(3).Row).Address(external:=True)
  End With
End Sub

Dante, con el código solo me muestra la primera columna:

Tienes que cambiar la propiedad del listbox de ColumnCount al número de columnas que desees.

Ahora si me lista correctamente, pero de igual modo se sigue reiniciando:

El error menciona un range y el único Set que usé es el siguiente que me sirve para guardar los datos del formulario a la hoja de excel:

Sub guardar()
Dim sh As Worksheet
Dim ufila As Long
Set sh = ThisWorkbook.Sheets("Database")
ufila = nReg(sh, 1, 1)
With sh
.Cells(ufila, 1) = UserForm1.Txt_id.Text
.Cells(ufila, 2) = UserForm1.Txt_nombres.Text
.Cells(ufila, 3) = UserForm1.Txt_dni.Text
.Cells(ufila, 4) = UserForm1.Txt_celular.Text
.Cells(ufila, 5) = UserForm1.Txt_email.Text
.Cells(ufila, 6) = UserForm1.ComboBox1.Text
.Cells(ufila, 7) = UserForm1.Txt_razonsocial.Text
.Cells(ufila, 8) = UserForm1.Txt_ruc.Text
.Cells(ufila, 9) = UserForm1.Txt_usuariosol.Text
.Cells(ufila, 10) = UserForm1.Txt_clavesol.Text
.Cells(ufila, 11) = UserForm1.Txt_usuarioafp.Text
.Cells(ufila, 12) = UserForm1.Txt_claveafp.Text
.Cells(ufila, 13) = Application.UserName
.Cells(ufila, 14) = [Text(Now(),"dd-mm-yyy hh:mm:ss")]
End With
End Sub

¿Ves algún problema el método de guardar los datos?

Se puede hacer de dos maneras y con mucho menos código del que estas usando este es el primer ejemplo cuando es una tabla simple, el resultado esta en la imagen que sigue al código

Private Sub UserForm_Initialize()
With Range("b2").CurrentRegion
    filas = .Rows.Count
    col = .Columns.Count
End With
With Range("b2").Rows(2)
    matriz = .Resize(filas - 1, col)
End With
With ListBox1
    .List = matriz
    .ColumnCount = col
End With
End Sub

Y este es el ejemplo cuando es una tabla insertada junto con la imagen del resultado

Private Sub UserForm_Initialize()
matriz = Range("tabla2")
With ListBox1
    .List = matriz
    .ColumnCount = Range("tabla2").Columns.Count
End With
End Sub

Muchas gracias por ayudarme, ¿hay alguna forma de editar el código para que permita agregar los títulos como cabecera?

Que aparezcan los títulos en donde señalé con rojo.

Checa la imagen en amarillo están los encabezados que serán colocados en el listbox que en este caso es de más de 20 columnas

y este es el codigo

Private Sub UserForm_Initialize()
With Range("b1").CurrentRegion
    filas = .Rows.Count
    col = .Columns.Count
End With
With ListBox1
    .RowSource = Range("b1").Rows(2).Resize(filas - 1, col).Address
    .ColumnCount = col
    .ColumnHeads = True
End With
End Sub

Muchas gracias; sin embargo al utilizar este código y al agregar un nuevo item a la hoja de excel se reinicia el excel(motivo por el cual intenté hacer la carga de datos con el Array). 

Con tus 2 ejemplos anteriores no ocurría este problema de reinicia de excel.

¿Podrá mejorarse en algo para que no ocurra el problema?