I have a excel macro like this:

1. Range("C2").Sel ect
Range(Selection , Selection.End(x lDown)).Select
Selection.Repla ce What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xl ByRows, MatchCase:=Fals e, SearchFormat:=F alse, _
ReplaceFormat:= False
Selection.Numbe rFormat = "[$-409]d-mmm-yy;@"
Selection.TextT oColumns Destination:=Ra nge("C2"),...