Sub 元ブックから全シートを開いている別ブックにコピー()

    Dim Matome As Workbook      'まとめたいブック
    Dim Moto As Workbook        'コピー元になるブック
  Dim Sht As Worksheet                      'コピー元のシート？
    
    
    Set Moto = ThisWorkbook     '元のブックに、このファイルをセット
    Set Matome = Workbooks("まとめ.xlsx")   '起動しておかないとここで実行エラーがでる
    
  For Each Sht In Moto.Worksheets         'シート数を取得して、その回数まわす
      If Sht.Visible = True Then
          Sht.Copy After:=Matome.Worksheets(Matome.Worksheets.Count)    '取得した最後のシートの後ろにコピー
          ActiveSheet.Cells.Copy
          ActiveSheet.Cells(1).PasteSpecial Paste:=xlValues
          Application.CutCopyMode = False
      End If
  Next Sht


End Sub