質問者が納得例えば、9行目からについては、次の位置に入れます。
これがB列の操作なら、Cells(Cells.Rows.Count, 2)、C列なら3・・・・となります。
With Sheets("受注履歴")
.Select
.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlank...