いつも参照させていただいております。
VBとExcelの連動で困っていますので助けていただけないでしょうか？

既存のbook1のsheet1の１行目から４１行目までをコピーして４２行目に貼付てbook2に別名保存
したいのですがうまくいきません。現在は以下のようにしています。

    Dim xlApp                   As Excel.Application
    Dim xlBook                  As Excel.Workbook
    Dim xlSheet                 As Excel.Worksheet
    
    
    
    'book2の確認
    MyFile = Dir$("C:\book2.xls")
    If Len(MyFile) > 1 Then
       '既存のbook2を削除する
        Kill "C:\book2.xls"
    Else
    End If
    
    'book1の取込
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\book1.xls")
    Set xlSheet = xlBook.Worksheets(1)
    
    '１行目から４１行目をコピーして
    xlSheet.Rows("1:41").Select
    xlSheet.Copy
    
    '４２行にペースト
    xlSheet.Rows("42:42").Select
    xlSheet.Paste
    
    'Cドライブ直下に保存の場合
    xlApp.DisplayAlerts = False
    xlSheet.SaveAs "C:\book2.xls"
    
    xlBook.Close True

    xlApp.Quit
    'オブジェクトを解放
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

ペースト部分でエラーが発生してしまいます。どのような命令を付け加えればいいのでしょうか
？教えて下さい。
    

どのようなエラーが発生するのか書いた方が良いと思いますよ。

Excelのマクロを記録してみましたが以下のようになります。

    Rows("6:17").Select
    Selection.Copy
    Rows("18:18").Select
    ActiveSheet.Paste

コピーとペーストの部分を変更してもダメでしょうか？

>     '１行目から４１行目をコピーして
>     xlSheet.Rows("1:41").Select
>     xlSheet.Copy
>    
>     '４２行にペースト
>     xlSheet.Rows("42:42").Select
>     xlSheet.Paste

返事ありがとうございます。
いもーにさんのほうほうだといけました。
おかしいと思って変更していましたがエクセルマクロをそのまますればいいのですね。
私もエクセルマクロまではしたのですがVBに書き込む段階でいろいろ変更していましたので・・・
。
本当にありがとうございます。
今後も利用することがありますのでまたよろしくお願いします。

こんにちは。

> 既存のbook1のsheet1の１行目から４１行目までをコピーして４２行目に貼付てbook2に別名保
存
> したいのですがうまくいきません。現在は以下のようにしています。
>
>    
>     '１行目から４１行目をコピーして
>     xlSheet.Rows("1:41").Select
>     xlSheet.Copy
>    
>     '４２行にペースト
>     xlSheet.Rows("42:42").Select
>     xlSheet.Paste
    
を
xlSheet.Rows("1:41").Copy Destination:=xlSheet.Rows(42)
でどうでしょうか。

ありがとうございます。
いろいろと方法があるものですね。YKさん、ありがとうございます。
VBはよく使っているのですがExcelを使うのははじめてでしたので助かります。
ありがとうございました。