選択範囲を他ブックのデータシートに追加したい。

前提・実現したいこと

ブックＡは開いた状態、ブックＢは閉じた状態でマクロを実行。

ブックＡの選択範囲（３列、行数可変）の計算結果をブックＢのＡ列最下行に続き追加したい。

初心者につき、下記エラーメッセージで検索し修正を試みましたが解決に至りませんでした。
お知恵を貸してください。

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

実行時エラー1004
Worksheetクラスのpastespecialメソッドが失敗しました。

該当のソースコード

Option Explicit
Sub 選択範囲を更新時一覧表に転記() 

'変数宣言ーーーーーーーーーーーーーーー
  Dim 転記先ファイル, i, j  '転記先ファイルとiとjを宣言

  転記先ファイル = "フルパス.xlsx"

'コピーーーーーーーーーーーーーーーーー

  Selection.Copy

'転記先ブックを開くーーーーーーーーーー
    If Dir(転記先ファイル) <> "" Then
        Workbooks.Open 転記先ファイル
        Workbooks("転記先ファイルブック名.xlsx").Activate

    Else
        MsgBox "ファイルが存在しません。", vbExclamation
        End
    
    End If
    
'画面と計算停止ーーーーーーーーーーーー
With Application
'        .ScreenUpdating = False
        .Calculation = xlCalculationManual
End With
    
    
'ペーストーーーーーーーーーーーーーーー

'Worksheets("データシート").Activate
    
    i = Cells(Rows.Count, "A").End(xlUp).Row + 1

Worksheets("データシート").Cells(i, "A").Select
    ActiveSheet.PasteSpecial　　　　　'【←ここで止まるエラー1004】


'計算行のコピーーーーーーーーーーーーー

    j = Cells(Rows.Count, "A").End(xlUp).Row
    
    Range(Cells(i, "D"), Cells(j, "D")).FormulaR1C1 = Left("=RC[-3]+RC[0]", 6)
    Range(Cells(i, "E"), Cells(j, "E")).FormulaR1C1 = Right("=RC[-4]+RC[0]", 3)

    
'画面と計算再開ーーーーーーーーーーーー
With Application
'        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
End With


'転記先ブックを上書き保存して閉じるーーーーーーーーーー
    
    Workbooks("転記先ファイル").Save
    Workbooks("転記先ファイル").Close
    
    MsgBox "完了しました。"
   
    
 End Sub