Автоматическое создание новой книги с экспортом данных из предыдущей книги

[S_Brodsky]

Необходима Ваша помощь, т.к. голову уже сломал...
Суть. Есть некий файл отчёта, Отчёт1 в котором присутствует столбец N с формулами в каждой ячейке.
Нужен макрос для автоматического создания нового файла, точно такого же но с другим именем, например Отчёт2.
В Отчёт2 в столбец В должны попасть данные из столбца N Отчёта1, но не с формулами а только значения. Я так понимаю необходимо использовать специальную вставку.
Да, и ещё. Во всех файлах при запуске включается защита листа на колонки М и N. Если нет готового ответа, прошу навести хотябы на мысль в правильном направлении. Заранее спасибо всем кто откликнется.
Во вложении файл Отчёта1 и файл Отчёта2 который необходимо сгенерировать из Отчёта1

[gluk_fm]

Создаём лист копируем туда значения+форматы сохраняем файл как. а там уже играемся с остальным:

Ну как-то так:
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "C:\Documents and Settings\е"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\е\отчёт2.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

[Hugo121]

Sub tt()
    Sheets(1).Copy
    With ActiveWorkbook
        With ActiveSheet
            .[b1:b21].Value = .[n1:n21].Value
        End With
        .SaveAs "C:\Temp\backup.xls"
        .Close 0
    End With
End Sub

P.S. Хотя судя по planet'е - не совсем то, что нужно. Ну хоть часть можно использовать...

[S_Brodsky]

выдало ошибку
я тут немного нашаманил, прошу сильно не пинать а прошу помочь дописать правильно следующий макрос:

Sub Main()
 Dim i As Integer: Application.ScreenUpdating = False
 Sheets("отчёт").Copy
 ActiveWindow.DisplayZeros = False
 For i = 25 To 3 Step -1
 If Range(Cells(i, "B"), Cells(i, "N")).Text = "" Then Rows(i).Delete
 Next
 ActiveWindow.DisplayZeros = True
 Range("N3:N100").Select
 Selection.Copy
 Range("B3:B100").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Range("C3:G100").Select
 Application.CutCopyMode = False
 Selection.ClearContents
 End Sub

Т.е. по нажатию на кнопку происходит копирование листа с переносом значений из столбца N в столбец B через спец.вставку. При этом удаляются строки с нулевым значением и значения в ячейках С3:G100. Необходимо чтобы при нажатии Книга-донор закрывалась без изменений, а для новой книги выводилось сообщение для сохранения под новым именем с выбором директории

[S_Brodsky]

Помогите пожалуйста, у меня ничего не получается...

[gluk_fm]

Попробуйте так, у меня работает и всего 10 минут в гугле