宅配３社のCSV伝票番号を参照し、エクセルメールに貼り付けたい！

※必ずデータのバックアップを取ってからご使用ください。
※質問文のみでは不明な点があったので、このままでは正常に動作しないかもしれません。
　また、私が質問文を間違えて理解しているかもしれません。
　エラーが出た際、また不正な処理をした際は、詳細をコメントにてお知らせください。
　(こちらで仮ファイルを用意してテストした限りは正常動作しました)
※処理後のデータに間違いがないか、よくご確認ください。
※追跡番号の元ファイルから何行読み込むかは、変数dnで指定してください。

以下、質問文で不明だった点。
・[項目8]、[項目25]ともに商品名を貼り付けていますが、これで正しいですか?
・追跡番号を貼り付ける列が分かりませんでした。
　また「送付先氏名」「計」は貼り付けには使用しませんか?
・「列はファイルの出力方法によりかわります」この条件でかなり複雑になっています。
　使用するファイルの内、列が固定のものがあれば、もう少しシンプルになります。

以上、不明な点がありましたら、コメントでお知らせください。

Sub Macro1()

dn = 100
dn1 = dn - 1

ChDir "C:\Users\yamada\Desktop"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="tmp.xls"

'### 佐川出力用
Workbooks.Open Filename:="佐川出力用.csv"
Cells.Find(What:="お届け先名称１", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(1, 0).Activate
Range(ActiveCell, ActiveCell.Offset(dn1, 0)).Select
Selection.Copy

Workbooks("tmp.xls").Activate
Range("A1").Select
ActiveSheet.Paste

Windows("佐川出力用.csv").Activate
Cells.Find(What:="お問合せ送り状№", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(1, 0).Activate
Range(ActiveCell, ActiveCell.Offset(dn1, 0)).Select
Selection.Copy

Workbooks("tmp.xls").Activate
Range("B1").Select
ActiveSheet.Paste

Application.CutCopyMode = False
Windows("佐川出力用.csv").Close

'### ヤマト出力用
Workbooks.Open Filename:="ヤマト出力用.xls"
Cells.Find(What:="お届け先名", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(1, 0).Activate
Range(ActiveCell, ActiveCell.Offset(dn1, 0)).Select
Selection.Copy

Workbooks("tmp.xls").Activate
Range("A" & dn + 1).Select
ActiveSheet.Paste

Windows("ヤマト出力用.xls").Activate
Cells.Find(What:="伝票番号", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(1, 0).Activate
Range(ActiveCell, ActiveCell.Offset(dn1, 0)).Select
Selection.Copy

Workbooks("tmp.xls").Activate
Range("B" & dn + 1).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Windows("ヤマト出力用.xls").Close

'### 出荷実績一覧
Workbooks.Open Filename:="出荷実績一覧.csv"
Cells.Find(What:="お届け先 氏名", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(1, 0).Activate
Range(ActiveCell, ActiveCell.Offset(dn1, 0)).Select
Selection.Copy

Workbooks("tmp.xls").Activate
Range("A" & dn * 2 + 1).Select
ActiveSheet.Paste

Windows("出荷実績一覧.csv").Activate
Cells.Find(What:="お問い合わせ番号", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(1, 0).Activate
Range(ActiveCell, ActiveCell.Offset(dn1, 0)).Select
Selection.Copy

Workbooks("tmp.xls").Activate
Range("B" & dn * 2 + 1).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Windows("出荷実績一覧.csv").Close

'### Vlookup
Windows("住所印刷.xls").Activate
Range("A1").Select
Cells.Find(What:="送付先氏名", After:=ActiveCell, SearchOrder:=xlByRows).Activate
nc = ActiveCell.Column

lc = Range("A1").SpecialCells(xlLastCell).Column + 1
lr = Range("A1").SpecialCells(xlLastCell).Row
Cells(1, lc).FormulaR1C1 = "tmp"
Range(Cells(2, lc), Cells(lr, lc)).FormulaR1C1 = "=VLOOKUP(RC" & nc & ",[tmp.xls]Sheet1!R1C1:R" & dn * 3 & "C2,2,0)"
Range(Cells(2, lc), Cells(lr, lc)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues

Workbooks("tmp.xls").Save
Windows("tmp.xls").Close
Kill "tmp.xls"

'### Paste
Workbooks.Open Filename:="エクセルメール.xls"

'# [TO]
Range("A9").Select
Cells.Find(What:="[TO]", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(2, 0).Activate

Windows("住所印刷.xls").Activate
Range("A1").Select
Cells.Find(What:="メールアドレス1", After:=ActiveCell, SearchOrder:=xlByRows).Activate
cc = ActiveCell.Column
Range(Cells(2, cc), Cells(lr, cc)).Select
Selection.Copy

Windows("エクセルメール.xls").Activate
ActiveSheet.Paste

'# [BCC]
Range("A9").Select
Cells.Find(What:="[BCC]", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(2, 0).Activate
Range(ActiveCell, ActiveCell.Offset(lr - 2, 0)).FormulaR1C1 = "xyz@yahoo.co.jp"

'# [項目8]
Range("A9").Select
Cells.Find(What:="[項目8]", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(2, 0).Activate

Windows("住所印刷.xls").Activate
Range("A1").Select
Cells.Find(What:="商品名", After:=ActiveCell, SearchOrder:=xlByRows).Activate
cc = ActiveCell.Column
Range(Cells(2, cc), Cells(lr, cc)).Select
Selection.Copy

Windows("エクセルメール.xls").Activate
ActiveSheet.Paste

'# [項目25]
Range("A9").Select
Cells.Find(What:="[項目25]", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(2, 0).Activate

Windows("住所印刷.xls").Activate
Range("A1").Select
Cells.Find(What:="商品名", After:=ActiveCell, SearchOrder:=xlByRows).Activate
cc = ActiveCell.Column
Range(Cells(2, cc), Cells(lr, cc)).Select
Selection.Copy

Windows("エクセルメール.xls").Activate
ActiveSheet.Paste

'# [項目20]
Range("A9").Select
Cells.Find(What:="[項目20]", After:=ActiveCell, SearchOrder:=xlByRows).Activate
ActiveCell.Offset(2, 0).Activate

Windows("住所印刷.xls").Activate
Range("A1").Select
Cells.Find(What:="指定", After:=ActiveCell, SearchOrder:=xlByRows).Activate
cc = ActiveCell.Column
Range(Cells(2, cc), Cells(lr, cc)).Select
Selection.Copy

Windows("エクセルメール.xls").Activate
ActiveSheet.Paste

End Sub