withループvbaで動的行を選択しないようにする方法

Question

私はここ数ヶ月間、以下のコードをうまく使っています。しかし、ワークシートのダイナミックレンジを選択しているため、ワークシートにない場合は、選択メソッドのクラスクラスが失敗してしまったことがわかりました。

次のコードが失敗した：

With w.Sheets("Sheet1") 
     n = .Cells(Rows.Count, 2).End(xlUp).Row 
     .Range("Y2:AI2").Copy 
     .Cells(n, 25).Select 
     .Range(Selection, Selection.End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas 
     .Application.CutCopyMode = False 
    End With 

次のコードは成功します

With w.Sheets("Sheet1") 
     n = .Cells(Rows.Count, 2).End(xlUp).Row 
     .Range("Y2:AI2").Copy 
     Sheets("Sheet1").Select 
     .Cells(n, 25).Select 
     .Range(Selection, Selection.End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas 
     .Application.CutCopyMode = False 
    End With 

私は再びシートを選択する必要があります。理想的には私は選択/アクティブ化を避けたい！

右手のステアリングは大変ありがとう！

Answer 1

あなたはシートを選択するために必要な_apparent_この

With w.Sheets("Sheet1") 
    .Range("Y2:AI2").Copy 
    With .Cells(.Cells(Rows.count, 2).End(xlUp).row, 25) 
     .Parent.Range(.Cells, .End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas 
    End With 
    .Application.CutCopyMode = False 
End With