空白セルを含んだ行の数字が入っているセルのみ隣のセルにコピーして貼り付けするためのマクロを教えてください。

前提・実現したいこと

ピポットテーブルを普通の表に変換し、表を見やすく整理するマクロを作っています。A2~C2まで空白セルでD2に数字が入力されているような行が複数あり、その行だけ選択してD列の数字を隣のE列に移したいのですが、なかなか思うようなマクロを作れなくて困っています。

B列の空白セルを含んだ行を指定し、C2に貼付けるマクロを作りましたが、エラーが出てしまい貼り付けられません。良い方法をご存知の方がいらっしゃいましたら、ご教示頂ければ幸いです。宜しくお願い致します。

コード
Dim LASTROW As Long

    ' 最終行の取得
    LASTROW = Cells(Rows.Count, 2).End(xlUp).Row
    ' B列の空白セルを含んだ行を選択
Range(Cells(2, 2), Cells(LASTROW, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.Select

Dim LASTCOLUMN As Long

   ' 最終列の取得
    LASTCOLUMN = Cells(2, Columns.Count).End(xlToRight).Column
   'セルをコピーしてC2に貼付け
    Range(Cells(2, 2), Cells(LASTCOLUMN, 2)).SpecialCells(xlCellTypeBlanks).Columns.Copy
  　Cells(2, 3).PasteSpecial

End Sub

変更前
変更後

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

エラーメッセージ
コピー領域とはりつけ領域が違うため情報を貼り付けることができませんとエラーが出ます。

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

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

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

DreamTheater

2020/09/29 04:06

読み辛いのでVBAコードは <code>で貼り付けてください。

DreamTheater

2020/09/29 04:09

> A2~C2まで空白セルでD2に数字が入力されているような行が複数あり A～C列まで空白セルでD列に数字がということでしょうか？こちらも質問文を修正してください。

ttyp03

2020/09/29 04:18

わかりづらいので、動作イメージを図か表かで表してもらえませんか。こういう表をこうしたい、って感じで。

hana0118

2020/09/29 04:33

ttyp03様ご指摘ありがとうございます。図を入れてみました。ご確認ください。

hana0118

2020/09/29 04:34

DreamTheater様ご質問頂いた通り、A~C列まで空白セルでD列に数字がある状態です。VBAコードを<code>で貼り付けました。宜しくお願い致します。

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

回答1件

ベストアンサー

図の追加ありがとうございます。
コピペでなくてもよいなら要件的にこんな感じでループで回せばよいかと思いますがいかがでしょうか？

VBA
1Sub test()
2    Dim r As Long
3    r = 2
4    Do While Cells(r, 4).Value <> ""
5        If Cells(r, 2).Value = "" Then
6            Cells(r, 5).Value = Cells(r, 4).Value
7            Cells(r, 4).Clear
8        End If
9        r = r + 1
10    Loop
11End Sub
12