Try this, though you make life more difficult by putting the films on different sheets.
Sub x()
  
Dim rFind As Range, sFind As String, sAddress As String, ws As Worksheet, r As Long
 
sFind = Sheets("Search").Range("B2").Value
r = 5

For Each ws In Worksheets
    If ws.Name Like "Movie List*" Then
        With ws.Columns(1)
            Set rFind = .Find(What:=sFind, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
                      SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
            If Not rFind Is Nothing Then
                sAddress = rFind.Address
                Do
                    Sheets("Search").Cells(r, 2).Value = rFind
                    r = r + 1
                    Set rFind = .FindNext(rFind)
                Loop While rFind.Address <> sAddress
            End If
        End With
    End If
Next ws
     
End Sub