アクティブシートの使われているセルに表示されている値のみ
　新規ブックに貼り付けます。

Sub Sample()

    ActiveSheet.UsedRange.Select
    Selection.Copy

    Workbooks.Add

    Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues
    
End Sub