Need modification in code. New Condition & New Logic.

[VBABEGINER]

I need help on this code..Need some modification in it..and addition of some more condition...

I really work hard to understand, but really I'm not that much, to insert any new condition..

Dim R As Long, X As Long, Cnt As Long, Data As Variant
Data = Range("B3", Cells(Rows.Count, "B").End(xlUp)).Resize(, 2)
For R = 1 To UBound(Data)
  Cnt = 0
  Data(R, 2) = ""
  For X = Len(Data(R, 1)) To 1 Step -1
    If Cnt < 4 Then
      If IsNumeric(Mid(Data(R, 1), X, 1)) Then
        Cnt = Cnt + 1
        Data(R, 2) = Mid(Data(R, 1), X, 1) & Data(R, 2)
      End If
    ElseIf Cnt = 4 Then
      Data(R, 2) = Format(Data(R, 2), "@@/01/@@")
      Data(R, 1) = Left(Data(R, 1), X)
      Cnt = 5
    ElseIf IsNumeric(Mid(Data(R, 1), X, 1)) Then
      Data(R, 1) = Left(Data(R, 1), X)
      Exit For
    End If
  Next
Next
Range("F3").Resize(UBound(Data)).NumberFormat = "mm/dd/yyyy"
Range("E3").Resize(UBound(Data), 2) = Data

 

[VBABEGINER]

Dear All, I really need help on this...Please revert..

Story was, previously i have limited "Form number with Date". Now some new "Form numbers" are seen.

Hence, need to incorporate this all..
In first i.e. in Col B having "Form number with Date".
Output Columns are-
Col E - Form Numbers only
Col F - Date only

can we do something..

Form Number with Date	Form Number	Date (M/D/YYYY)
EPP-E122-0116	EPP-E122	1/1/2016
10-02-2543 (10/16 ed.)	10/2/2543	10/1/2016	---here "ed." not required
14-02-1350 (1/95 ed.)	14-02-1350	1/1/1995	---here "ed." not required
AXIS 102 A/C (06 15)	AXIS 102 A/C	6/1/2015
EP 4104 (06 13)	EP 4104	6/1/2013
EP 1051-CA (07 13)	EP 1051-CA	7/1/2013
CC-1k11H (03/14)	CC-1k11H	3/1/2014
XSC-27266 (05/09)	XSC-27266	5/1/2009
EXL 0001 0615	EXL 0001	6/1/2015
05 PCD0071 00 03 10	05 PCD0071 00	3/1/2010
00 ML0012 00 09 04	00 ML0012 00	9/1/2004
IL 00 17 01 98	IL 00 17	1/1/1998
HC00051212	HC0005	12/1/2012
HC70010605	HC7001	6/1/2005
IL P 001 01/04	IL P 001	1/1/2004
RHIC 6000 08/11	RHIC 6000	8/1/2011
ACF-7007 Ed. 08-11	ACF-7007	8/1/2011	---here "Ed." not required
DX T1 00 11 12	DX T1 00	11/1/2012
DX 00 04 11 07	DX 00 04	11/1/2007
17-02-5205 2-98	17-02-5205	2/1/1998
17-02-5205 7-03	17-02-5205	7/1/2003
11-02-1220 (09/03)	11-02-1220	9/1/2003
NOTS0021CA (09/03)	NOTS0021CA	9/1/2003
UTS-COVPG 7-03	UTS-COVPG	7/1/2003	--before 7 there is one extra space…very rare it is coming
IL 00 17 02/2013	IL 00 17	2/1/2013	---here "Ed." not required
abcde (06 15)	abcde	6/1/2015
EPP-POL-0410	EPP-POL	4/1/2010
ABCDEF 02 - 01/20	ABCDEF 02	1/1/2020
IL 1202	IL 1202		--no date required
17-02-52 - 01/57	17-02-52 - 01/57		--no date required
95863.2857142837	95863.2857142837		--no date required
95863.28571 - 01/57	95863.28571 - 01/57		--no date required

<tbody>
</tbody>