同一ブック内の別のシートへコピーをしたい

Question

前提・実現したいこと

エクセルでアンケートデータの集計表を作成しています。

自由回答項目をTEXTJOINによりまとめたセルの値を別のシートの指定場所に表示させたいのですが、うまくいかず苦戦しています。

アドバイスいただけませんでしょうか？
よろしくお願いします。

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

indexが有効範囲にありません。

該当のソースコード

      Dim LastRow As Long

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row 
    
         Range("A" & LastRow + 1).Formula = "=TEXTJOIN(""-"",1,$A$4:$A" & LastRow & ")"
         
        
        Sheets("コピー元").Range("A""& LastRow).Copy _
      Destination:=Sheets("コピー先").Range("A1")

試したこと

webでしらべましたが解決できませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[azuapricot]

https://excel-ubara.com/excelvba1/EXCELVBA337.html

ここはみました？

Answer 1

Sheets("コピー元").Range("A""& LastRow).Copy _

"A""になっているからでしょうか。
→正"A"

またTEXTJOINを設定しているところでは、対象行を+1してますが、Copyの行はしていません。
こちらも+1しないとダメな気がします。

以上をまとめるとこうなります。

Sheets("コピー元").Range("A""& LastRow).Copy _
↓
Sheets("コピー元").Range("A" & LastRow + 1).Copy _

Comments

[Leony]

早速のご回答ありがとうございます。

アドバイスをいただいた内容にて修正してみましたが、「構文エラー」となってしまいます。。。

Destination:=Sheets("コピー先").Range("A1")

この部分の 「:=」 がエラー対象箇所として反転表示されています。

お手数ですが、再度アドバイスいただけませんでしょうか？
よろしくお願いします。

[ttyp03]

こちらで試したところ問題なく動きました。
Copyの後ろのアンダーバー(_)が削除されていないでしょうか？

[Leony]

何度もお手間をおかけして申し訳ありません。

アンダーバーの前のスペースが足りていなかったようです。

無事に動作を確認しました。。。

お忙しい中、ほんとうにありがとうございました。