А какой файл-то смотреть? Вот я открыл "Исходный файл". Макрос там не очень удачный - код может просто не успеть сработать в нужный момент. Лучше его чуть изменить и вызывать по OnTime:
Private Sub Workbook_Open()
Application.OnTime Now, Me.CodeName & ".CreateLO"
End Sub
Sub CreateLO()
With Me.Sheets("Исходные данные")
On Error Resume Next
.ListObjects.Item("Исходные_данные").Delete
On Error GoTo 0
.ListObjects.Add(xlSrcRange, .Range("A1:" & Cells.SpecialCells(xlLastCell).Address), , xlYes).Name = _
"Исходные_данные"
End With
End Sub
P.S. ClosedXML более недоступна