Need Macro vba to extract only URL string from a column having strings with some text plus URL

[mypunit]

Hello Experts. I just started learning about VBA and got below problem. In below example, column A is a huge set of cells that has strings with URLs in it. I need to extract only URL starting from "http" keyword. There are no cases when this string has more than one URL.

I searched internet and found following formula somehow working for me, however I could never figure out how to get VBA macro for this purpose.
B1=MID(A1,FIND("http",A1),IFERROR(FIND(" ",A1,FIND("http",A1))-1,LEN(A1))-FIND("http",A1)+1)
I request you to please help me out here. I would be sincerely thankful.

IMPORTANT: In final VBA solution, I need a VBA which can just remove extra text from COLUMN A and leaves the URL string in COLUMN A itself. I dont want to copy it to anywhere else.

http://eworld.com/first/	http://eworld.com/first/
https://pacbell.com/	https://pacbell.com/
MW http://intranet/solar/ (external)	http://intranet/solar/
https://mbos.google.com (internal link)	https://mbos.google.com
N/A
External link is http://mynah.sbc.com (outside)	http://mynah.sbc.com
NOT VALID
1 PROD 2 TEST http://www.text.com	http://www.text.com
ERROR

<tbody>
</tbody>

 

[onlyadrafter]

Hello,

is this adequate?

Sub GET_URL()
    Application.ScreenUpdating = False
    Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, 1)).Select
    Selection.Replace What:="*http", Replacement:="http", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="(*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    For MY_ROWS = 1 To ActiveSheet.UsedRange.Rows.Count
        If Left(Range("A" & MY_ROWS).Value, 2) <> "ht" Then
            Range("A" & MY_ROWS).ClearContents
        End If
    Next MY_ROWS
    Application.ScreenUpdating = True
End Sub

 

[snb_]

Sub M_snb()
    sn = Cells(1).CurrentRegion.resize(,2)
    
    For j = 1 To UBound(sn)
        st = Filter(Split(sn(j, 1)), "://")
        sn(j, 2) = ""
        If UBound(st) > -1 Then sn(j, 2) = st(0)
    Next
    
    Cells(1).CurrentRegion.resize(,2) = sn
End Sub