Bank statement data puller

[makinmomb]

01-01-16 B/F 66,940.11 02-01-16 CR02-01-16 22,000,000.00 BY CASH 22,066,940.11 02-01-16 6,252,480.00 CR02-01-16 000768 MANSOOR INDUSTRIES L T D 15,814,460.11000768 02-01-16 6,272,520.00 CR02-01-16 000767 MANSOOR INDUSTRIES L T D 9,541,940.11000767 04-01-16 CR04-01-16 23,000,000.00 BY CASH 32,541,940.11 04-01-16 6,272,520.00 CR04-01-16 000616MANSOOR INDUSTRIES L T D 26,269,420.11000616 04-01-16 6,533,040.00 CR04-01-16 000618 MANSOOR INDUSTRIES L T D 19,736,380.11000618 04-01-16 6,292,560.00 CR04-01-16 000615 MANSOOR INDUSTRIES L T D 13,443,820.11000615 04-01-16 6,432,840.00 CR04-01-16 000613 MANSOOR INDUSTRIES L T D 7,010,980.11000613 05-01-16 CR05-01-16 22,000,000.00 BY CASH 29,010,980.11 05-01-16 5,000,000.00 CR05-01-16 000773 H M H GULAMALI 24,010,980.11000773 05-01-16 5,100,000.00 CR05-01-16 000774 H M H GULAMALI 18,910,980.11000774 05-01-16 5,200,000.00 CR05-01-16 000775 H M H GULAMALI 13,710,980.11000775 05-01-16 6,422,820.00 CR05-01-16 000619 MANSOOR INDUSTRIES 7,288,160.11000619 05-01-16 1,800,000.00 CR05-01-16 CTS/IW CHQ No 47351101000785 5,488,160.11000785 06-01-16 CR06-01-16 23,000,000.00 BY CASH 28,488,160.11 06-01-16 5,180,000.00 CR06-01-16 CTS/IW CHQ No 47351101000483 23,308,160.11000483 06-01-16 4,500,000.00 CR06-01-16 CTS/IW CHQ No 47351101000795 18,808,160.11000795 06-01-16 4,860,000.00 CR06-01-16 CTS/IW CHQ No 47351101000792 13,948,160.11000792 06-01-16 6,560,000.00 CR06-01-16 CTS/IW CHQ No 47351101000793 7,388,160.11000793 06-01-16 5,400,000.00 CR06-01-16 CTS/IW CHQ No 47351101000794 1,988,160.11000794 06-01-16 5,000,000.00 DR06-01-16 CTS/IW CHQ No 47351101000598 3,011,839.89000598 06-01-16 5,000,000.00 DR06-01-16 CTS/IW CHQ No 47351101000599 8,011,839.89000599 07-01-16 CR07-01-16 22,000,000.00 BY CASH 13,988,160.11 07-01-16 5,631,240.00 CR07-01-16 000617 MANSOOR INDUSTRIES L T D

I want a macro pull dates only if that string is on a1

Expected results will be

01-01-16
02-01-16
02-01-16
02-01-16
04-01-16
04-01-16
04-01-16
04-01-16
04-01-16

The expected results can be rolling from a3 downwards

 

[Fluff]

How about

Sub makinmomb()
   Dim i As Long, r As Long
   Dim sp As Variant
   sp = Split(Range("A1"))
   For i = 0 To UBound(sp)
      If InStr(sp(i), "-") Then
         r = r + 1
         Range("A2").Offset(r) = Replace(Replace(sp(i), "CR", ""), "DR", "")
      End If
   Next i
End Sub