いつもお世話になっています。

事前にExcelで表を作ってあります。
一つの表幅が１３行があります。
一ページに三つの表が並んでいます。
表の中数値が変わっています。
表の性格は
長さが不定長です。
今のやり方、この表をコピーしてやっています。
xlSheet.Range("A4:AN16").Copy
   xlSheet.Paste Destination:=xlSheet.Range("A21")
   xlSheet.Paste Destination:=xlSheet.Range("A37")
   xlSheet.Paste Destination:=xlSheet.Range("A54")
   xlSheet.Paste Destination:=xlSheet.Range("A68")
…
問題：
コピーのほうです。
縦列が問題がなく
行の幅が変わっています。
元表の行の幅と違っています。
（元表の行の幅が同じではないです。）
（元表の列の幅が同じではないです。）
やってみたのですが、
コピー範囲の行幅が調整したのですが、
調整した幅をコピーされています。
ちょっと困っています。

全く同じようにコピーしたいのですが、
どうすればいいでしょうか。

よろしくお願いします。
環境：VB6＋XP

まず、用語は正しく使って下さい。(私もよく間違えたりしますので人の事言えませんが)
それでないと他の人には何の事か伝わりません。
セール ＝ SALE  
xlSheet.Cells / cell＝ セル
元表の行の幅 → 行の高さの事ではないのですか？
元表の列の幅が同じではないです →　こちらまで正しいのか解らなくなる
同じ列位置にペーストしているのなら当然元の表と列幅は同じになるはずですが。

> 全く同じようにコピーしたいのですが、
> どうすればいいでしょうか。
Excel 上ならできるのですか？　VB6.0 から Excel を操作しているのですから基本的に Excel
上で出来ない事は、できません。
(Excel の操作(機能)を調べて下さい。)
Excel 上でできるのならその操作をマクロに取ってそのコードを VB6.0 用に書き直して下さい。

> 環境：VB6＋XP
Excel を使った操作の質問なら Excel のバージョン等も明記して下さい。
そもそもやる気があるのなら、１行づづ行の高さを調べて、その値をペーストした表に設定すれば
できる事ではないのですか？
そこで何か問題があるのなら、NET 上で調べて見るとかしないといつまでも他人に頼ってばかり
では....。
今回の件でも、[Excel コピー 行の高さ 列幅]で検索すれば、色々情報(方法)が見つかります。
その上での質問なら質問内容も違ってきますが。

　http://tinyurl.com/k2tkv82

VBレスキュー(花ちゃん) 　アドバイスありがとう。

> 元表の行の幅 → 行の高さの事ではないのですか？
> 元表の列の幅が同じではないです →　こちらまで正しいのか解らなくなる
> 同じ列位置にペーストしているのなら当然元の表と列幅は同じになるはずですが。
>
その通りです。書き方は今後気をつけます

> (Excel の操作(機能)を調べて下さい。)
> Excel 上でできるのならその操作をマクロに取ってそのコードを VB6.0 用に書き直して下さい。
>
動作がわかりません。

> そこで何か問題があるのなら、NET 上で調べて見るとかしないといつまでも他人に頼ってばかり
> では....。
そうですね、まず、Netで見ること。

どうもありがとうございました。

  指定のセル範囲の列幅・行の高さを含めてコピー＆ペーストする

  http://www.hanatyan.sakura.ne.jp/vb6/excel06.htm