VBAの他シートのデータを貼り付けるエラー

Question

#エラー
同じブックの一番右のシートからデータをコピーし、一番左のシートに貼り付けるという処理を記述しています。
この処理を実行するとインデックスがありませんと言われてしまうのですがなぜでしょうか？

 '一番右のセルを選択する
  Worksheets(Count).Select
  
  'コピー元データの開始位置を指定する
  cr = 9: str3 = CStr(Cells(cr, 9).Value)
  
  '空セルになるまで繰り返す
  Do Until str3 = ""
    '次の行に移動する
    cr = cr + 1
    'セルの値を取得する
    str3 = CStr(Cells(cr, 9).Value)
  Loop
  
  '社員氏名・社員番号が入力されているセルを選択する
  Range(Cells(17, 2), Cells(cr - 1, 2)).Select
  'セルデータをコピーする
  Selection.Copy
  '一番左(作成中)のシートを選択する
  Worksheets(1).Select
  '貼りつけるエリアを選択する
  Range(Cells(9, 9), Cells(cr + 7, 9)).Select
  'コピーしたセルデータを貼り付ける
  ActiveSheet.Paste

Answer 1

質問に書かれたコードの最初の部分で、定義も値も不明なCountが使われています。
もしもCountが初期化されていない変数であれば、"インデックスがありません"というエラーが発生します。

 '一番右のセルを選択する
  Worksheets(Count).Select

この部分は、以下のように書かれるべきかと思われます。
Worksheets.Countで、ワークシートの総数（何枚有るか）が得られます。
それをWorksheetsのインデックスに使うと、最後(一番右)のワークシートが得られます。

 '一番右のセルを選択する
  Worksheets(Worksheets.Count).Select