い

Sub CopyQueryTableToPlainSheet()
Dim srcWs As Worksheet
Dim destWs As Worksheet
Dim lo As ListObject
Dim srcRange As Range
Dim destStartCell As Range

' 1つ目のシートに読み込まれたテーブルがあると仮定
Set srcWs = ThisWorkbook.Sheets(1)
Set destWs = ThisWorkbook.Sheets.Add(After:=srcWs)
destWs.Name = "値だけコピー"

' 対象のテーブルを取得
If srcWs.ListObjects.Count = 0 Then
    MsgBox "テーブル（Power Queryの読み込み結果）が見つかりません。", vbExclamation
    Exit Sub
End If

Set lo = srcWs.ListObjects(1)
Set srcRange = lo.Range
Set destStartCell = destWs.Range("A1")

' 値と書式をコピー
destStartCell.Resize(srcRange.Rows.Count, srcRange.Columns.Count).Value = srcRange.Value
destStartCell.Resize(srcRange.Rows.Count, srcRange.Columns.Count).NumberFormat = srcRange.NumberFormat

' オプション：読み込み元のテーブルを削除（必要なら）
' lo.Delete

MsgBox "値と書式をコピーしました（" & destWs.Name & "）", vbInformation

End Sub