Run time error 13 Type mismatch hatası nasıl düzelir sarı renkli olan

[MAYKMAYKMAYK]

Sub MacKolikBülten()
Range("A2,A3:AL5300").Select
Range("A3").Activate
Selection.ClearContents
Range("A3").Select
Dim ie As Object
Shell "taskkill /f /im iexplore*"
basla = Timer: While (Timer - basla) < 1: Wend
Set ie = VBA.CreateObject("internetexplorer.application")
URL = "https://arsiv.mackolik.com/Genis-Iddaa-Programi"
With ie
.navigate URL
' .Visible = True
Do While .busy: DoEvents: Loop: Do While Not .readystate = 4: DoEvents: Loop
basla = Timer: While (Timer - basla) < 1: Wend
Set osma = ie.document.createEvent("HTMLEvents")
osma.initEvent "change", True, False
Set aydi = ie.document.getelementbyid("justNotPlayed")
aydi.Click
Do While .busy: DoEvents: Loop: Do While Not .readystate = 4: DoEvents: Loop
basla = Timer: While (Timer - basla) < 1: Wend
son = Cells(Rows.Count, "A").End(3).Row + 1
For Each tr In ie.document.all.tags("TR")
If Mid(tr.innertext, 3, 1) = ":" Then
For i = 0 To tr.all.tags("TD").Length - 1
Cells(son, i + 2) = tr.all.tags("TD").Item(i).innertext
Next i
son = son + 1
ElseIf Mid(tr.innertext, 3, 1) = "." Then
For i = 0 To tr.all.tags("TD").Length - 1
Cells(son, i + 1) = tr.all.tags("TD").Item(i).innertext
Next i
son = son + 1
End If
Next tr
End With
son:
say = Empty
ss = Cells(Rows.Count, "B").End(3).Row
Range("A3:A" & ss).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A3:A" & ss) = Range("A3:A" & ss).Value
MsgBox "İşlem tamamlandı. Bol Şanslar!!!", vbInformation, "BÜLTEN ÇEKİLDİ!!!"
End Sub