Find first non formatted cell in range

Hi,
I need to use text to columns to convert text to date but I am having an issue that the recorded macro wont work for the newly inputted data it only works from the top of the column until the new data starts, Can I use code and what code to determine which cells within the column are formatted as date so that I can start thereafter?
Thanks
Johnny

TMS,
Sorry I don't really understand the code, How can I incorporate this so that my code then executes from the selected cell down?

Selection.TextToColumns Destination:=Range("R1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True

Sample workbook attached, A2:A71 already formatted but when I added new additional data A72:A93 I need the formatted and hence need the code. Hope this sample is enough if you need anything more i.e original text etc., just let me know.
Many Thanks, Johnny

Sub Convertdate2()
    With Worksheets("X47")
       .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).TextToColumns Destination:=.Range("R1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
     End With
End Sub

For some reason this isn't working? It runs but it doesn't format the data?

Where are the unformatted data? Could you post them?

File attached below, The data between A2:A71 is already formatted using test to columns and the data below this from A72:A93 is unformatted.
Thanks Again

Example_2.xlsm

Hi Burt_100,
maybe so

Sub ttt()
Dim x
With Range("A2", Cells(Rows.Count, 1).End(xlUp))
    x = .Value
    .NumberFormat = "mm/dd/yyyy"
    .Value = x
End With
End Sub

nilem,
Worked on everything except A81 for some reason? it still stays left aligned and when filter is selected it shows as an independent value and not within the "December" heading like the rest?

Text to columns function is not doing anything except on the last stage of the wizard( To format the column in to date). You can achieve the same thing using excel formatting.

Why would the code sometimes skip a row?

Because i bring the data in as text from the external program the excel date function is not working and hence i need to use text to column or an alternative if anyone can help.

Ive tried it on column A and it doesnt work for some reason, havnt tried column R yet.

You do not need a code.
I suspect what you are missing is the last part on text to column Wizard. You need to highlight column A, choose date from "Column data format".
Because you are not choosing date, the data is formatted as General which is the default option.
It does not matter where the data are or where you the data go.