For n = 3 To Range("A65536").End(xlUp).Row
Range("C" & n) = Int(Range("C" & n))
Range("C" & n).NumberFormat = "dd/mm/yyyy"
Range("D" & n) = Int(Range("D" & n))
Range("D" & n).NumberFormat = "dd/mm/yyyy"
Next n
For n = 3 To Range("G65536").End(xlUp).Row
Range("I" & n) = Int(Range("I" & n))
Range("I" & n).NumberFormat = "dd/mm/yyyy"
Range("J" & n) = Int(Range("J" & n))
Range("J" & n).NumberFormat = "dd/mm/yyyy"
Next n