こういうのは VBA(ﾏｸﾛ)を使わないと難しいでしょう｡

無理に関数でやる方法や 抽出処理をする方法もありますが､何度も繰り返しやるには 向いてないと思います｡

以下のﾏｸﾛでやればいいです｡

Sub 抽出()
 Dim r As Long
 Dim f As Long
 Dim 位置 As Long
 
 ｼｰﾄ1 = "Sheet1"
 ｼｰﾄ2 = "Sheet2"
 
 曜日 = Worksheets(ｼｰﾄ2).Range("A1")
 
 ﾃﾞｰﾀ開始位置 = 2  'ﾃﾞｰﾀの開始位置はA2からです｡
 出力開始位置 = 3  '出力の開始位置はA3からです｡
 
 If 曜日 = "" Then Exit Sub
 
  '初期化
 位置 = 出力開始位置
 If Worksheets(ｼｰﾄ2).Cells(位置, "A") <> "" Then
 位置 = 位置 + 1
 If Worksheets(ｼｰﾄ2).Cells(位置, "A") <> "" Then
 位置 = Worksheets(ｼｰﾄ2).Cells(出力開始位置, "A").End(xlDown).Row
 End If
 End If
 
 For r = 出力開始位置 To 位置
 Worksheets(ｼｰﾄ2).Cells(r, "A") = ""
 Worksheets(ｼｰﾄ2).Cells(r, "B") = ""
 Worksheets(ｼｰﾄ2).Cells(r, "C") = ""
 Next r
 
 
  '抽出
 位置 = ﾃﾞｰﾀ開始位置
 If Worksheets(ｼｰﾄ1).Cells(位置, "A") <> "" Then
 位置 = 位置 + 1
 If Worksheets(ｼｰﾄ1).Cells(位置, "A") <> "" Then
 位置 = Worksheets(ｼｰﾄ1).Cells(ﾃﾞｰﾀ開始位置, "A").End(xlDown).Row
 End If
 End If
 
 f = 出力開始位置
 For r = ﾃﾞｰﾀ開始位置 To 位置
 For b = 4 To 4 + 7
 If Worksheets(ｼｰﾄ1).Cells(r, b) = 曜日 Then
 Worksheets(ｼｰﾄ2).Cells(f, "A") = Worksheets(ｼｰﾄ1).Cells(r, "A")
 Worksheets(ｼｰﾄ2).Cells(f, "B") = Worksheets(ｼｰﾄ1).Cells(r, "B")
 Worksheets(ｼｰﾄ2).Cells(f, "C") = Worksheets(ｼｰﾄ1).Cells(r, "C")
 f = f + 1
 Exit For
 End If
 Next b
 Next r

End Sub

以下の内容を適宜変更して使ってください｡

 ↓ｼｰﾄ名です｡
 ｼｰﾄ1 = "Sheet1"
 ｼｰﾄ2 = "Sheet2"
 
 ↓抽出する曜日を指定する箇所です｡
 曜日 = Worksheets(ｼｰﾄ2).Range("A1") ← A1

 
 ﾃﾞｰﾀ開始位置 = 2  'ﾃﾞｰﾀの開始位置はA2からです｡
 出力開始位置 = 3  '出力の開始位置はA3からです｡