同じシートに5か所貼り付けをしたい

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

最終行に別のシートから貼り付けをしたい。

Sub test ()
    ActiveSheet.Range("S9").Select
    Selection.Copy
    Sheets("集計").Select
     n = Cells(Rows.Count, "D").End(xlUp).Row + 1
    Sheets("集計").Paste
    
    
    
End Sub### 該当のソースコード

```ここに言語名を入力
ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[meg_]

今の問題は何ですか？

[退会済みユーザー]

Dの行には貼り付けができたのですが、次にEの行にも別に貼り付けたい場合、そのまま同じようにすると貼れない。End subの前に同じようにすればいいのでしょうか？

[meg_]

「同じように」というのが何を指しているのかこちらには分かりません。上記内容は質問のタイトル（同じシートに5か所貼り付けをしたい）とも微妙に違っていますし、もう少し具体的に質問に書かないと回答はつきにくかと思います。