指定範囲に空白セルを含む行を別のシートにコピー

Question

前提・実現したいこと

指定の範囲(D4から右下のセル)で空白セルを含む行を丸ごと他のシート(抽出シート)にコピーしたいと考えています。また、この操作を抽出シート以外のすべてのシートにしたいと思っています。
いろいろ調べてやっているのですが、まったくわからなくなり、何が悪いのかもわからなくなったので、教えていただけますと幸いです。

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

検索しても空白セルを含む行を丸ごと選択するという内容がなく、
Dim r as range
Set r = Range(range("D4"),cells(4,columns.count).end(xltoleft))
まではできたのですが、その後がまったくわからなくなってしまいました。

エラーメッセージ

### 該当のソースコード

```ここに言語名を入力
ソースコード

試したこと

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

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

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

Comments

[meg_]

「空白セルを含む行を丸ごと他のシート(抽出シート)にコピー」
・その行が空白を含むかどうかの判定
・行のコピー＆ペースト
と分割して一つずつ考えてはどうでしょうか？

Answer 1

いろいろな書き方は出来るけど、
こんな感じとか。。。。。

Sub test()
    With ActiveSheet
        .Range(.Range("D4"), .UsedRange(.UsedRange.Count)).Copy
    End With
End Sub

Answer 2

やり方は色々あるようなのですが、こちらでどうでしょうか。

Dim r as range
Set r = Range(Range("D4"), ActiveCell.SpecialCells(xlLastCell))

セル範囲の取得