えっと、そっそれは毎回「貼付行」を１にもどしちゃっているからですよよよよ(´Д⊂ヽ
#-----------------------------------------------
　＃一回目のコピー
　「りんご」のエクセルシート注目
　　行＝Aでエクセル最下行取得。
　　列＝行でエクセル最右列取得。
　　セル＝行,列のエクセルセル名取得。
　　「A1:{セル}」をエクセル選択。
　　エクセルコピー。　

　　＃一回目の貼付け
　　「Sheet1」のエクセルシート注目
　　貼付行＝1。　＃一回目の貼付け位置を指定
　　「A{貼付行}」をエクセル選択。
　　エクセル貼付け。
　　貼付行＝貼付行＋行＋１。　＃二回目の貼付け位置を計算

　　＃二回目のコピー
　　「バナナ」のエクセルシート注目
　　行＝Aでエクセル最下行取得。
　　列＝行でエクセル最右列取得。
　　セル＝行,列のエクセルセル名取得。
　　「A1:{セル}」をエクセル選択。
　　エクセルコピー。　

　　＃二回目の貼付け
　　「Sheet1」のエクセルシート注目
　　//貼付行＝1。　＃ここね
　　「A{貼付行}」をエクセル選択。
　　エクセル貼付け。
　　貼付行＝貼付行＋行＋１。 　＃三回目の貼付け位置を計算
#-----------------------------------------------
　貼付行を１にしてしまったら、それは「A{貼付行}」は「A1」になっちゃいますよね～。