If .Range("J" & g).Value = " " Then
dev = .Range("J" & g).Value
dev = Replace(dev, " ", "")
.Range("J" & g).Value = dev
End If
If .Range("J" & g).Value = "" Then
vv2 = Val(16)
Else
For Each ff In .Range("J" & g)
ff = CDate(Left(ff, 10))
Exit For
Next ff
vv2 = Val(Month((ff)))
End If