Сергій знайшов таку помилку в коді:
в прилоенном файле Запис матеріалів в НДІ користувача

в блоке
Function Reset() As String
Dim LastRow, Row_N As Integer
Row_N = 6
ActiveSheet.ShowAllData (ругается на этом месте)
'MsgBox LastRow
LastRow = Cells(Rows.Count, 5).End(xlUp).Row 'Пошук останььої строки
If LastRow <= 5 Then LastRow = 10
Range(Cells(Row_N, 1), Cells(LastRow, 14)).Clear
Reset = "Очищено"

выдает ошибку,
в нете посмотрел и предложили такой вариант
вместо ActiveSheet.ShowAllData поставить If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Function Reset() As String
Dim LastRow, Row_N As Integer
Row_N = 6
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
'MsgBox LastRow
LastRow = Cells(Rows.Count, 5).End(xlUp).Row 'Пошук останььої строки
If LastRow <= 5 Then LastRow = 10
Range(Cells(Row_N, 1), Cells(LastRow, 14)).Clear
Reset = "Очищено"

так ошибку не выдает и все работает, во всяком случае нси загружает
Дякую Сергію, в майбутніх версіях виправлю.
Пропоную всім хто має бажання та вміння виправити самостійно.
Код макросів залишав відкритим.