El error es porque el listbox tiene 8 columnas y solamente tiene cargadas 7 columnas. Al momento de pasar los datos del listbox al arreglo de celdas está considerando 8 columnas
'Cuenta el número de columnas del listbox
c = lista.ColumnCount
'Cuenta el número de filas del listbox
f = lista.ListCount
'Recibe el rango de celdas el contenido del listbox, pero le resta 2 columnas para evitar el error #N/A, una 'por la columna que hace falta y otra por la fecha, ya que la fecha se pasa en otro momento.
h1.Range(h1.Cells(2, 1), h1.Cells(f + 1, c - 2)) = lista.List