I ONLY want to add the special date and special number IF there is already existing data in that line
Ooops. Try:

dt = ws1.Range("J1").Value
If IsDate(dt) Then
    For Each Cell In ws1.Columns(9).SpecialCells(2)
        Set c = ws2.Rows(1).Find(Cell.Value)
        If Not c Is Nothing Then
        r = ws2.Cells(Rows.Count, c.Column).End(3).Row
        If r > 1 Then
            ws2.Cells(r + 1, c.Column).Value = dt
            ws2.Cells(r + 1, c.Column + 1).Value = Cell.Offset(0, 1).Value
        End If
        End If
    Next
End If