Sub Convert()
For Each Clls In Range("B2:B" & [B65536].End(xlUp).Row)
If Asc(Clls) <> 32 Then
With Clls
.Value = "19" & .Value
.NumberFormat = "dd/mm/yyyy"
End With
Else:
Clls.ClearContents
End If
Next
End Sub