Oh, sorry!
I forgot to write DateValue before the actual date.
It is, basically:

Range("B" & lrTest - 1).value = DateValue("08/mm/2016") 'mm as month
Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"