エクセルのVBA機能を利用したデータ抽出について

Question

前提・実現したいこと

エクセルのVBA機能を活用したデータ抽出方法が分からなく、苦戦しております。。

■やりたい事：「開店している店舗情報」のデータ抽出（同ファイル内、別シートへの抽出）
※閉店フラグが「FALSE」の行データの抽出がしたい。
①キーは「住所」とする。
②抽出するデータは、「店舗名」と「責任者名」とする。

申し訳ありませんが、ヒントだけでも頂けますと嬉しいです。
![説明]

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

エラーメッセージ

該当のソースコード

ソースコード

試したこと

特定位置のセル情報を抽出することは出来たのですが
条件を指定しての抽出が出来ていない状況です。

Sub 転記マクロ()
'①シートを変数にセット
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("１．店舗情報")
Set ws2 = Worksheets("２．店舗情報(抽出)")

'②シートを指定してデータを転記
ws2.Range("D4:D7").Value = ws1.Range("D4:D7").Value
ws2.Range("E4:E7").Value = ws1.Range("DE:E7").Value
End Sub

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

エクセルVer：Office2013　となります。

Comments

[sage]

特定位置のセル情報抽出したVBAのソースを載せてください。

[shim008]

>sage様
コメントありがとうございます。
「＃試したこと」としまして、コードを加筆致しました。
お手数ですが、確認頂けますでしょうか。

[sage]

ソースを見ましたが、"DE:E7" → "E4:E7"じゃないと動かないと思いますが...。ほんとにこのソースでコピーしたのですか?
また、(枠もですが)住所はコピーしていないのにコピーされているのは何故ですか?

Answer 1

Sub 転記マクロ()
    '①シートを変数にセット
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Set ws1 = Worksheets("１．店舗情報")
    Set ws2 = Worksheets("２．店舗情報(抽出)")
    '②シートを指定してデータを転記
    'ws2.Range("D4:D7").Value = ws1.Range("D4:D7").Value
    'ws2.Range("E4:E7").Value = ws1.Range("DE:E7").Value
    Dim i As Long, j As Long
    j = 4
    For i = 4 To ws1.Cells(Rows.Count, "C").End(xlUp).Row
        If ws1.Cells(i, "H").Value = False Then
            ws2.Cells(j, "C").Resize(, 3).Value = ws1.Cells(i, "C").Resize(, 3).Value
            j = j + 1
        End If
    Next i
End Sub

Comments

[shim008]

iruyas様
記述の程、ありがとうございます。
上記内容で対応出来ました。

その後、条件として店名で昇順にソートするため
下記のようなコードでアレンジしました。（無事、達成。）
'③店名を昇順でソート
Worksheets("シート名").Activate
Worksheets("シート名").Range(Cells(Y, X), Cells(Y, X)) _
.Sort Key1:=Worksheets("シート名").Cells(Y, X), order1:=xlAscending

Answer 2

1. コピーする際、セル範囲を縦にまとめるのではなく、(行単位で)横にまとめる。
   (行単位でコピーするかしないかを判断するのだから、コピーは行単位で行う)
2. ws1シートの閉店フラグ(Hカラム)を1行ずつ見て、FALSEの行のみをコピーする。

Answer 3

特定位置のセル情報を抽出することは出来たのですが
条件を指定しての抽出が出来ていない状況です。

そのコードを提示すれば、条件の指定の仕方のアドバイスが得られるでしょう。