1つのブックから別のブックへのコピーと転置 - 'ランタイムエラー1004'

Question

次のコードを使用して1つのブックから別のブックにデータをコピーして転記しようとしましたが、ランタイムエラー1004が発生します。この問題を解決してください。これはコードのこのセクションにあるようです：

Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
    , Transpose:=True 

解決方法がわかりません。

は完全なコードについては、以下を参照してください：

Windows("ETP2016_scenario_summary (2).xlsx").Activate 
    ActiveCell.Range("A1:H7").Select 
    Selection.Copy 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveCell.Offset(12, 1).Range("A1:H13").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(0, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 19 
    ActiveWindow.ScrollRow = 26 
    ActiveCell.Offset(16, 0).Range("A1:H8").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(-4, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 40 
    ActiveCell.Offset(11, 0).Range("A1:H8").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(-3, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 44 
    ActiveCell.Offset(17, 1).Range("A1:H6").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(-5, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 62 
    ActiveCell.Offset(9, 0).Range("A1:H8").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(-2, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 68 
    ActiveCell.Offset(13, 1).Range("A1:H8").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(-1, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 79 
    ActiveCell.Offset(11, 0).Range("A1:H8").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(0, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 90 
    ActiveWindow.ScrollRow = 97 
    ActiveCell.Offset(11, 0).Range("A1:H16").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(1, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
    ActiveWindow.ScrollRow = 113 
    ActiveCell.Offset(19, 0).Range("A1:H16").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    ActiveCell.Offset(-6, -1).Range("A1").Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
     , Transpose:=True 
End Sub 

すべてのヘルプは大歓迎です。

Answer 1

最初貼り付けを転記する貼り付け先の範囲を選択していません。

あなたを交換してください：

Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ 
    , Transpose:=True 

で：

' replace Sheet2 with your Sheet Name, Modify Range("A1) to your Range 
    Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True