Private Sub CommandButton2_Click()

Dim RngToCopy As Range
Dim NewWks As Worksheet

Set RngToCopy = Selection
Set NewWks = Workbooks.Add(1).Worksheets(1)

RngToCopy.Copy
NewWks.Range("a1").PasteSpecial Paste:=xlPasteValues

Name = Application.InputBox("Kliknij na komórę z nazwą", "Wskaż", , , , , , 2)

With NewWks.Parent
.SaveAs Filename:=ThisWorkbook.path & "/" & Name, FileFormat:=xlText
.Close savechanges:=False
End With

End Sub