例えば、複写元シート(一行目は見出行なので除く)を
複写先シートの末尾(最終行の次の行)にコピペするのは、以下のような感じとなる。
┌──────────────────────────────────────┐
│Dim yMax As Long                                                            │
│With 複写元シート                                                           │
│    yMax = .UsedRange.Rows(.UsedRange.Rows.Count).Row                       │
│    .Range(.Rows(2), .Rows(yMax)).Copy                                      │
│End With                                                                    │
│With 複写先シート                                                           │
│    yMax = .UsedRange.Rows(.UsedRange.Rows.Count).Row                       │
│    .Rows(yMax + 1).PasteSpecial                                            │
│End With                                                                    │
│Application.CutCopyMode = False                                             │
└──────────────────────────────────────┘