テキストファイルからEXCELマクロを使ってコピーし指定した範囲に貼り付けしたい

Question

###前提・実現したいこと
.txtテキストファイルに保存してある文字列を、Excel2010でマクロを使って、Excelに貼り付けたいです。ただ、貼り付け先のExcelは個別にフォーマットを作成していて、指定範囲内に貼り付けさせたいと考えています。他のサイトを参考にして下記のようなソースコードを試しましたが、うまくいきません。

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

実行時エラー'1004’
コピー領域と貼り付け領域の形が違うため、情報を貼り付けることができません。情報を貼り付けるには、次のいづれかの操作を行なってみてください。

１つのセルをクリックし、貼り付けてみてください。
貼り付け元の形を確かめ、適切な範囲を選択したあと、貼り付けてみてください。

###該当のソースコード

Sub PasteFromCSV()
Const CSV_FILE = "c:\temp\command.txt"
Dim ReadWBk As Workbook
Dim WriteWBk As Workbook
Dim WriteSht As Worksheet
Dim Rng As Range

Set WriteWBk = ActiveWorkbook
Set WriteSht = WriteWBk.ActiveSheet

Set ReadWBk = Workbooks.Open(CSV_FILE)
Set Rng = ReadWBk.Worksheets.Item(1).UsedRange
Range("A1:A170").Copy

WriteSht.Range("A1:A93,A111:A200").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False

ReadWBk.Close
Set ReadWBk = Nothing
End Sub

###試したこと
貼り付け先のRange("A1:A93,A111:A200")を範囲指定しなければ、貼り付けはできるようです。貼り付けたくない範囲（A94～A110）を除外したいのですが、エラーとなってしまいます。

###補足情報(言語/FW/ツール等のバージョンなど)
Excel2010で試しています。

Comments

[coco_bauer]

１７０個のセル(Range("A1:A170"))をコピーして、１８３個のセル(Range("A1:A93")の９３セルと、Range("A111:A200")の９０セルを併せたもの）に貼り付けようするのは、何か前提としているものが破綻しているのではないですか？　冷静になって、やろうとしている事を整理しては如何でしょう？

[Tokamura]

コメントありがとうございます。コピー時のセルの数と貼り付け先のセルの数を合わせても同様な結果でした。質問ではセルの数を合わせておいた方が明確だったかもしれません。失礼しました。