Copy data to another sheet if not found

Hello guys,

I am looking for a VBA code, to do the following. Can someone please help. Thank you.

1)Compare 2 sheets (Column J of sheet "Data" Vs Column B of sheet "Expected outcome")
2)If the cell content in Column J is not found in Column B (Case insensitive).
3)Copy the cell content of Column J to Column B below the next available blank cell.
4) In the next adjustment cell "No data" standard text should be entered for the newly copied data set.

I have attached the sample workbook, the red font in the "Expected outcome" sheet should be the output.

Option Explicit
Sub appendData()
    Dim i&, lr&, lr2&, Arr, Rng, c
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    Application.ScreenUpdating = False
    
    Set ws1 = Worksheets("Data")
    Set ws2 = Worksheets("Expected outcome")
    lr = ws1.Cells(Rows.Count, "J").End(xlUp).Row
    Arr = ws1.Range("J3:J" & lr).Value

    For i = 1 To UBound(Arr, 1)
        lr2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row
        Set Rng = ws2.Range("B6:B" & lr2)
        Set c = Rng.Find(Arr(i, 1), LookIn:=xlValues, MatchCase:=True)
        If c Is Nothing Then
            ws2.Cells(lr2 + 1, 2) = Arr(i, 1)
            ws2.Cells(lr2 + 1, 3) = "No Data"
        End If
    Next i
    ActiveSheet.Range("A1").Select
    Application.ScreenUpdating = True
    MsgBox "Finish!"
End Sub