Zapisz wartości

Witam,
Takim kodem zapisuję:

Sub zapisz_kopie()
' pobranie wartości z arkusza
biezacy_katalog = ThisWorkbook.Path
katalog_pliku = ActiveSheet.Range("o16").Value
Nazwa = Format(ActiveSheet.Range("c11").Value, "dd.mm.yyyy") & "_" & Format(ActiveSheet.Range("l15").Value, "0000") & "_" & Format(ActiveSheet.Range("w3").Value, "sc") & "_" & Format(ActiveSheet.Range("w4").Value, "mag") & "_" & Format(ActiveSheet.Range("o338").Value)

On Error Resume Next
' utworzenie katalogu, jeśli już istnieje wystapi błąd i pominięcie tej linii
MkDir biezacy_katalog & "\" & katalog_pliku
On Error GoTo 0
' zapisanie kopii
ActiveWorkbook.SaveCopyAs biezacy_katalog & "\" & katalog_pliku & "\" & Nazwa & ".xls"
MsgBox "Zapis zakończony    "

Application.Quit
Application.DisplayAlerts = False

End Sub

Chcę aby zapisywało tylko wartości w odkrytych wierszy i kolumn, bez makr, filtrów, formuł. Ale z formatowaniem (szerkość kolumn, wyskość wiersza, czcionka itd).
Próbowałem nagrać takie makro ale kwiatki mi wychodziły więc piszę

Pozdrawiam,
Piotr

Ps. A jeszcze lepiej żeby była możliwość wyboru, zapisuje tak jak w powyższym kodzie lub tak jak piszę czyli tylko wartości.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl