FILTER function across multiple sheets, display in separate sheet

jenjers 

Sub CurrentWeekData()

    Dim WBK As Workbook
    Dim WKS As Worksheet
    Dim i As Long
    Dim wn As Long
    Dim j As Long
    Dim k As Long
    Dim m As Integer
    
    Worksheets("planner sheet").Range("A2:Z1048576").Clear
    
    k = 2
    
    wn = Format(Date, "ww")
        
    For Each WKS In ThisWorkbook.Worksheets
        If WKS.Name <> "planner sheet" Then
        
        i = WKS.Range("A" & Rows.Count).End(xlUp).Row
        
        For j = 2 To i
        If WKS.Cells(j, 1).Value = wn Then
        
        For m = 1 To 26
        Worksheets("planner sheet").Cells(k, m).Value = WKS.Cells(j, m).Value
        
        Next m
                
        k = k + 1
        Else
        End If
        Next j
                
        End If
    Next WKS

End Sub

Maybe with these lines of code. In the attached file you can click the button in cell AB2 to run the macro.

jenjers If you have access to VSTACK() function then could try.

=VSTACK(FILTER('Lesson 1'!B:Z,'Lesson 1'!A:A=WEEKNUM(TODAY())),FILTER('Lesson 2'!B:Z,'Lesson 2'!A:A=WEEKNUM(TODAY())),FILTER('Lesson 3'!B:Z,'Lesson 3'!A:A=WEEKNUM(TODAY())))

See the attached file.