Нужна помощь в доработке макроса

[artyom2104]

Добрый день! Имеется макрос, составленный через макрорекордер и найденные решения. При запуске его через импорт модуля в окно редактора VBA он отрабатывает корректно, сохраняет что нужно из исходника в эксель, а потом преобразует его в csv, но при запуске из личной книги макросов, в эксель сохраняет пустой лист, скопированные данные удаляет. Полный код во вложении, та часть кода которая отрабатывается по разному
With Application.FileDialog(msoFileDialo gSaveAs)
.InitialFileName = ThisWorkbook.Path & "\" & "Старый_формат"
If .Show = 0 Then Exit Sub
ThisWorkbook.ActiveSheet.Copy
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
End With
Помогите настроить макрос, чтобы корректно работал из Personal.xlsb, либо подскажите как его сохранить иначе, что был активным во всех книгах эксель.

[artyom2104]

Файл для обработки макросом

[Serge_Bliznykov]

попробуйте в макросе ThisWorkbook заменить на ActiveWorkBook

[artyom2104]

Благодарю, помогло.