Bom dia pessoal, minha macro está apresentando um erro de tempo de execução '13" (tipos incompatíveis)

Está macro apenas pega alguns dados do meu excel e cadastra as informações em um site.

Sabem me dizer onde está o erro?

Desde já agradeço a atenção.

Sub CadastrarReclassificação()
Inserindo = True
LimpaRelatório
LimpaRegistrosInserção
Relatar ("Início do processo de inserção de dados.")

'Acessa o site do discoverer e, dada uma data, gera o relatório e faz o download automaticamente.

'Declaração de variáveis
Dim MyData As DataObject
Dim Contador As Integer
Dim myURL As String
Dim myDoc As HTMLDocument
Dim strSearch As String
Dim Teclas As String

Set myIE = New InternetExplorer 'Cria um novo browser para acessar o site

myURL = "http://aplcorp2.ultra.corp/spf/Login.asp?Action=V&txtUsuario=admin&txtSenha=300387"



myIE.navigate myURL 'Acessa o site
myIE.Visible = True 'Torna o browser visível
'MsgBox ("Efetue o login na página e depois clique em ok")

'Application.Wait (Now + TimeSerial(0, 0, 3))

'SendKeys "admin", True
'Application.Wait (Now + TimeSerial(0, 0, 1))
'SendKeys "{TAB}", True
'Application.Wait (Now + TimeSerial(0, 0, 1))
'SendKeys "spf", True
'Application.Wait (Now + TimeSerial(0, 0, 1))
'SendKeys "{ENTER}", True

Application.Wait (Now + TimeSerial(0, 0, 2))

'Define o site que contém o discoverer
myURL = "http://aplcorp2.ultra.corp/spf/ReclassificaFluxo_Upd.asp?action=I"
'myURL = "http://aplcorp2.ultra.corp/spf/login.asp"

For x = 2 To Worksheets("Dados").Range("A65536").End(xlUp).Row

myIE.navigate myURL 'Acessa o site
myIE.Visible = False 'Torna o browser invisível

Do While myIE.Busy Or myIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
myIE.Visible = True 'Torna o browser visível


Set myDoc = myIE.document

Set hinp = myDoc.getElementById("slcCodigo")
hinp.Value = Cells(x, 1)
Set hinp = myDoc.getElementById("txtData")
hinp.Value = Cells(x, 2).Text
Set hinp = myDoc.getElementById("txtValor")
hinp.Value = CStr(Cells(x, 3).Value)
Set hinp = myDoc.getElementById("slcContaFO")
hinp.Value = Cells(x, 4).Text
Set hinp = myDoc.getElementById("slcContaFD")
hinp.Value = Cells(x, 5).Text
Set hinp = myDoc.getElementById("txtObs")
hinp.Value = Cells(x, 6).Text

Set hinp = myDoc.getElementById("btnGravar")
hinp.Click

Application.Wait (Now + TimeSerial(0, 0, 2))

SendKeys ("{ENTER}")
    
Do While myIE.Busy Or myIE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
    
    Cells(x, 7) = "Inserido"
    
Next x

Relatar ("Fim do processo de inserção de dados. " & x - 2 & " registros foram processados.")

Application.Wait (Now + TimeSerial(0, 0, 2))
'Fecha o browser automaticamente
myIE.Quit
                 
Checagem
Inserindo = False
                 
End Sub