Don't you need to wait until the "Click" is resolved? I have a routine that
enters data on a page  multiple times, using a loop. Each time I do the
"Click", I have to wait until the next page is ready:

Set oForm = oIE.Document.forms(0)
For Each oCell In ActiveSheet.Range("A2:A500")
If oCell.Value = "" Then Exit For
.
.
.
oForm(".save2").Click
Do: DoEvents: Loop While oIE.Busy
Do: DoEvents: Loop Until oIE.ReadyState = READYSTATE_COMPLETE
Set oForm = oIE.Document.forms(0)
Next oCell