エクセルのマクロで「空白を無視して貼り付け」させたい！

前提・実現したいこと

こんにちは。何卒よろしくお願い致します。
メルカリの取引画面から、ユーザースクリプト（Tampermonkey）で情報を抜き出し、それをエクセルに貼り付ける際に、エクセルのマクロで「空白を無視して貼り付け」をショートカットキーで簡単に行えるようにしたいと頑張っております。

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

14行目のRange("A1").PasteSpecialの箇所で、

アプリケーション定義またはオブジェクト定義のエラーです。

と表示されます。

該当のソースコード

ExcelVBA
1Option Explicit
2
3Sub 空白を無視してペースト()
4
5    Dim CellAdd As String
6    
7    Sheet1.Activate
8    CellAdd = ActiveCell.Address
9    
10    Debug.Print CellAdd
11    
12    Sheet2.Activate
13    Range("A1").Select
14    Range("A1").PasteSpecial
15    Range("A1:P1").Copy
16    Selection.Clear
17         
18
19    Rows(1).Delete
20
21    Sheet1.Range(CellAdd).PasteSpecial SkipBlanks:=True
22    
23    
24    
25End Sub

試したこと

Rangeの前にワークシートオブジェクトを置いてみたり、PasteSpecialの後にPasteの項目（xlPasteValuesなど）を置いてみたり、ネットで色んな書き方を調べて片っ端から書いてみたのですが、解決しませんでした????

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

一回Sheet2に貼り付けてそれをまたコピーしようとしているのは、ユーザースクリプトで取得した情報がデータの形式上の問題なのか、そのままだと「形式を指定して貼り付け」することができなかった為です。（手動でプロセスを確認した際の話）

環境
Windows10 Home
Microsoft365

radames1000

2021/03/31 02:03 編集

ユーザースクリプトで取得した情報は手動での貼り付けはできるのでしょうか。 →あ、補足にある通り手動ではできたのですね。

k036

2021/03/31 04:17

ご質問いただきまして、ありがとうございました！そうなのです????手動では簡単にできたので、中々コードとして表現することができなかったのでモヤモヤしていたのですが、無事解決できて安心しました！ご協力していただいてありがとうございました！またの機会がございましたら、よろしくお願いいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

PasteSpecialする前にコピー元をクリアしたり削除してはいけません。
PasteSpecialの後に移動させてください。

vba
1Sub 空白を無視してペースト()
2
3    Dim CellAdd As String
4
5    Sheet1.Activate
6    CellAdd = ActiveCell.Address
7
8    Debug.Print CellAdd
9
10    Sheet2.Activate
11    Range("A1").Select
12    Range("A1").PasteSpecial
13    Range("A1:K1").Copy
14
15    Sheet1.Range(CellAdd).PasteSpecial SkipBlanks:=True
16
17    Selection.Clear
18
19
20End Sub

おまけ

いちいちSelectする必要はないので、Selectしないコーディングを習得しましょう。
その方が読みやすいし、動作も高速です。

vba
1Sub 空白を無視してペースト1()
2
3    Dim ACell As Range
4
5    Sheet1.Activate
6    Set ACell = ActiveCell
7    
8    With Sheet2
9        .Range("A1").PasteSpecial
10        .Range("A1:K1").Copy
11        ACell.PasteSpecial SkipBlanks:=True
12        .Range("A1:K1").Clear
13    End With
14
15End Sub