Olá Amigo,
Tenta Isso...
Sub apostas()
Set internet = New Selenium.ChromeDriver
Dim AA, BB, CC, DD, EE, FF, GG, HH, II, JJ, KK, LL, MM, NN, OO As String
Dim X As Long
Dim Oxente As Selenium.ChromeDriver
With internet
.Start
.Get "
https://www.loteriasonline.caixa.gov.br ... mos-de-uso"
.FindElementById("botaosim").Click
.FindElementById("Lotofácil").Click
X = 2
For X = 2 To 11
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 15)
AA = Worksheets("Games").Cells(X, 2).Value
BB = Worksheets("Games").Cells(X, 3).Value
CC = Worksheets("Games").Cells(X, 4).Value
DD = Worksheets("Games").Cells(X, 5).Value
EE = Worksheets("Games").Cells(X, 6).Value
FF = Worksheets("Games").Cells(X, 7).Value
GG = Worksheets("Games").Cells(X, 8).Value
HH = Worksheets("Games").Cells(X, 9).Value
II = Worksheets("Games").Cells(X, 10).Value
JJ = Worksheets("Games").Cells(X, 11).Value
KK = Worksheets("Games").Cells(X, 12).Value
LL = Worksheets("Games").Cells(X, 13).Value
MM = Worksheets("Games").Cells(X, 14).Value
NN = Worksheets("Games").Cells(X, 15).Value
OO = Worksheets("Games").Cells(X, 16).Value
.FindElementById(AA).Click
.FindElementById(BB).Click
.FindElementById(CC).Click
.FindElementById(DD).Click
.FindElementById(EE).Click
.FindElementById(FF).Click
.FindElementById(GG).Click
.FindElementById(HH).Click
.FindElementById(II).Click
.FindElementById(JJ).Click
.FindElementById(KK).Click
.FindElementById(LL).Click
.FindElementById(MM).Click
.FindElementById(NN).Click
.FindElementById(OO).Click
.FindElementById("colocarnocarrinho").Click
Next X
MsgBox (Pagar!)
End With
End Sub
Só coloquei um timerzinho maior.
Abraço