VBA Copy and paste date and add a comment

[Fiveshorter]

Hi,

I have a vba macro that compares uid in two sheets, once the uid match then i compare the QTY, if the QTY do not match the vba returns incomplete and if they do then it is complete. In my file i have a sheet with the list of uid to be run and also in the next column i have specific dates.

For Each Cell In Rng
If Application.CountIf(sws.Columns(3), Cell.Value) > 0 Then
r = Application.Match(Cell.Value, sws.Columns(3), 0)
If Cell.Offset(0, 18) = sws.Cells(r, 5) Then
Cell.Offset(0, 3) = "Complete 01 August"

Else
Cell.Offset(0, 3) = "Incomplete 01 August"
End If
This is my macro, in the part where i have the comment (Complete 01 august) i would like to let it equal to the date in my sheet. Example below:

sheet1
UID QTY Date
12 2 22/08/17
13 3 23/08/17

Sheet2
UID QTY STATUS
12 2 22/08/17 Complete
13 4 23/08/17 Incomplete

Any help on this would be greatly appreciated!