シートをコピーした後、コピーしたシートに別のシートの情報をコピーするためのvbaマクロ

Question

これを動作させるには問題があります。私はちょうど最初のシートの前に左から2番目のシートをコピーしたい。その後、ちょうど2番目のシートになったものから新しい最も左のシートに情報をコピーします。 SELECTION.Copyには、予想される変数がないことを示すエラーが表示されます。

Sub GenerateInvoice() 
    Sheets(2).Select 
    Sheets(2).Copy Before:=Sheets(1) 
    Sheets(2).Select 
    Range("H2:N2").Select 
    SELECTION.Copy 
    Sheets(1).Select 
    Range("E11").Select 
    SELECTION.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
End Sub 

Answer 1

隠しシートまたは非ワークシートシート（チャートシートなど）はありますか？

あなたは、一般的にアクティブ化/選択を必要としません：

Sub GenerateInvoice() 
    Sheets(2).Copy Before:=Sheets(1) 
    With Sheets(2).Range("H2:N2") 
     Sheets(1).Range("E11").Resize(1, .Columns.Count).Value = .Value 
    End With 
End Sub