Extract URLs Macro

I am looking to extract URL's from a excel sheet.

Actually,, I have some software, which I have opened in notepad,
and then copied the data into excel.

The data is a mess.

It has had loads of unwanted characters etc. I've managed to clean this all up now.
What I'm looking for if possible is to extract all URLs to another worksheet.

As an example, I have 1 sheet that has 1654 rows of data, that goes right to
column DK.

All URLs now have 1 space before it and 1 space after it,
For example:

(space)[url](space)
or
(space)[url](space)

If possible, I would like to be able to run a macro that would
look at this worksheet and find all the URL's, then return
them into a new spreadsheet in a list,,, and if possible
not returning duplicates,
(If it does find dups if a pop up could mention how many dups deleted)
if this is hard to do then no worries at all.

As a note,I'd spent a while looking for a macro to delete all unwanted characters,, found 1,,
so for info purposes, I post it below, seemed to run fine;
but if there are any other alteratives/suggestions, I'm all ears


Sub clean()

Dim vAddText(0 To 38) As String

vAddText(0) = Chr(1)
vAddText(1) = Chr(2)
vAddText(2) = Chr(3)
vAddText(3) = Chr(4)
vAddText(4) = Chr(5)
vAddText(5) = Chr(6)
vAddText(6) = Chr(7)
vAddText(7) = Chr(8)