スキルアップ・問題解決なら、モーグにおまかせ！

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

Sub Sample()

    ActiveSheet.UsedRange.Select
    Selection.Copy

    Workbooks.Add

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