VBA: Search for text in database in copy cells within target rows

Hi,
I hope somebody can help me creating a macro for finding text values within a database.
I'm not so good in VBA, so I try this forum.

See attachment.
I want to know all notifications of a batch in my spreadsheet. The batch is in cell A1 and I want to look for this text in column D. The amount of hits can variate from batch to batch

Second, I want to copy the cells in the same row of the hits to another worksheet.
I can use the find and findnext function, but I'm not so good in implementing this all in a macro.

Can anybody help me with this issue ?

Try this:

Sub x()
  
Dim rFind As Range, sFind As String, sAddress As String
 
sFind = Range("A1").Value

With Sheet1.Columns(4)
    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
            rFind.Offset(, -3).Resize(, 5).Copy Sheet2.Cells(Rows.Count, 1).End(xlUp)(2)
            Set rFind = .FindNext(rFind)
        Loop While rFind.Address <> sAddress
    End If
End With
     
End Sub