trainee, код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.

На данный момент могу помочь только советом:
запишите рекордером удаление кнопки - одна строка. И вставьте её перед строкой сохранения.
По поводу замены формул на значения попробуйте так.
Появятся новые вопросы - создавайте новую тему.
По поводу формулировок: даже если Вы в названии укажете несколько проблем - это плохой вариант. Или разбейте свои вопросы на несколько тем или, если хотите чтобы всё сделали комплексно (и за Вас) - сразу в платный раздел. Там сможете сформулировать не 6, а хоть 26 "хотелок" )

TMD, на форум заходит много людей. И подумайте сами - придёт ли в голову человеку, которому нужно заменить формулы на значения, искать ответ на свой вопрос в теме про создание книги с одним листом?  А то, что у Вас имеются сопутствующие вопросы, так об этом в правилах: одна тема - один вопрос.
По поводу макрорекордера: Вы пробовали записать удаление кнопки, а макрорекордер это не смог записать?

TMD, Вы упрямо уходите от заявленной темы: новую книгу с одним листом создали? Получилось? Всё - тема исчерпана.
Не получится найти поиском по форуму - создайте соответствующие темы.

TMD, как скопировать лист в новую книгу, было показано в #3
Как удалит кнопку (фигуру) на листе - отдельный вопрос.
Как заменить формулы значениями - тоже отдельный вопрос.
И то и другой неоднократно обсуждалось на форуме.

А как же это?

Выполнил макрос с одной строкой:

Код
Sub qqq()    Worksheets("Обработка 1").Copy Before:=Sheets(1) End Sub

Появился новый лист со всеми данными и даже с кнопкой )
К имени нового листа добавилось (2), как и положено.

Это что за переводчик у Вас? ))
А как Ваш переводчик переведёт это?

А дальше ничего: выполни эту строку - получишь новую книгу с одним листом и с этим же именем ))

Вить, зачем такие сложности с тремя новыми листами? Просто и готова новая книга с одним листом.

Это Вы кого спрашиваете?

См. вариант.

Обожаю такие вопросы. Ответ: возможно.

Я думаю, так и нужно поступить: ну куда это годится, чтобы только на 11-м сообщении человек, которому нужна помощь, соизволил прикрепить файл-пример?
ctpexhih,  помощь кому нужна? Вам? Вот и Вы должны сделать всё, что необходимо для получения помощи. Не должны потенциальные помощники уговаривать Вас!

semen777, не нужно вставлять скопированную картинку - прикрепляйте её файлом.  

Игорь, да не задачу автор решает, а разбирается с работой цикла  Do Loop. ) Ну вот не нравятся автору другие методы - хочет именно этот вариант.

Вопросов по сводной таблице великое множество.
Тема закрыта. Будете создавать новую = придумайте название, из которого будет понятна задача. И небольшой файл-пример прикрепите. Не картинку, а Excel- файл.
Ну и не нежно в сообщении столько пустыъх строк. Не жмите на Enter без необходимости.

На это обратили внимание?

riority, если используете макрос, то зачем формула? Всё макросом и делайте.
Немного поправил Ваш макрос. Только не пойму, зачем у Вас  принудительный выход из цикла?Так же вместо явного перебора ячеек можно использовать FindNexr

Никакой формулы в этой строке нет - есть присвоение значения ячейке. Проверьте, какое значение в этот момент у переменной.

Может ещё кто-нибудь придумает, если поняли задачу? Предлагаемое автором ничуть не лучше имеющегося.

Не понимаю, что здесь сложного  В следующем своём сообщении напишите: Предлагаю новое название ...(тут новое название темы).

Что ЭТО?

bybys, переформулируйтк название. Предложите новое - модераторы поменяют.

И не помешает небольшой файл-пример, где будут данные ДО и ПОСЛЕ.

Почитайте эту статью.

Недостаточно удалить данные из ячеек - нужно удалить "лишние" строки и столбцы. Нажмите Ctrl+End - увидите, где у Вас последняя задействованная ячейка.

На стороне ))

roninza, ну а цитата здесь зачем? Вернитесь в своё сообщение и приведите его в порядок. И запомни те: кнопка цитирования не для ответа!

imsk, Вас интересует решение исключительно с помощью "Поиск решения"* Или устроит любой вариант?