Nur Werte einfügen

Sub kopieren()
  Dim rngfind As Range
        
    With Sheets("Tätigkeiten Übersicht")
        Set rngfind = .Rows("3").Find _
            (what:=Sheets("Tätigkeiten nach Uhrzeit").Range("B2"), After:=.Range("E3"), LookIn:=xlValues)
                If rngfind Is Nothing Then
                MsgBox "Datum nicht gefunden"
                Exit Sub
                End If
    
            Range("BI5:BI38").Copy rngfind.Offset(2, 0)
                
    End With
  
End Sub