ネットショップで自動購入のため以下のマクロを作ってみました 「all」ページ→画...

ネットショップで自動購入のため以下のマクロを作ってみました
「all」ページ→画像情報で検索して商品ページ画面→自動でカートインとなる予定で作りましたが
実行してもカートに入りません

初心者なのでかなりつたないコードになっていると思いますが
カートに入らないのはどこに問題があるかどなたかご教授いただけませんでしょうか

Option Explicit

Sub vba()
Dim obIE As Object
Dim Obj As Object

Set obIE = CreateObject("InternetExplorer.Application")
obIE.Visible = True
obIE.navigate "http://www.supremenewyork.com/shop/all"

Do While obIE.readyState <> 4
Do While obIE.Busy = True

Loop

Loop

For Each Obj In obIE.document.getElementsByTagName("img")

If InStr(Obj.outerHTML, "116144") > 0 Then
Obj.Click

Exit For
End If
Next

Do While obIE.readyState <> 6
Do While obIE.Busy = True

Loop
Loop

For Each Obj In obIE.document.getElementsByTagName("input")

If InStr(Obj.outerHTML, "カートに入れる") > 0 Then
Obj.Click

Exit For

End If
Next
obIE.navigate "https://www.supremenewyork.com/checkout"
'
Application.Wait Time:=Now + TimeValue("00:00:02")

End Sub