codigo excel cola numero com vírgulas, mesmo não tendo virgula na tabela

[davimilazzo]

eis o código:
 

Sub CleanAndAutomateWithValidationAndErrorHandling()
    Dim bot As New WebDriver
    Dim Keys As New Selenium.Keys
    Dim rng As Range
    Dim cell As Range
    Dim valor As String
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("PROCESSOS MS")
    
    ' Remove linhas vazias da coluna A
    ws.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    Set rng = ws.Range("A2:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
    
    bot.Start "chrome"
    bot.Get "https://pje1g.trf1.jus.br/pje/login.seam"
            Application.Wait Now + TimeValue("0:00:20")
            bot.Get "https://pje1g.trf1.jus.br/pje/Processo/ConsultaProcesso/listView.seam"
            Application.Wait Now + TimeValue("0:00:20")
    
    For Each cell In rng
        ' Armazena o valor da célula atual em uma variável
        valor = cell.value
        
    
            ' Divide os dígitos da numeração
            Dim digito1to7 As String
            Dim digito8to9 As String
            Dim digito10to13 As String
            Dim digito17to20 As String
            
       digito1to7 = Left(valor, 7)
digito8to9 = Mid(valor, 8, 2)
digito10to13 = Mid(valor, 10, 4)
digito17to20 = Mid(valor, 17, 4)

            
          ' Preenche os campos na página usando os IDs específicos
bot.FindElementById("fPP:numeroProcesso:numeroSequencial").SendKeys digito1to7
bot.FindElementById("fPP:numeroProcesso:numeroDigitoVerificador").SendKeys digito8to9
bot.FindElementById("fPP:numeroProcesso:Ano").SendKeys digito10to13
bot.FindElementById("fPP:numeroProcesso:NumeroOrgaoJustica").SendKeys digito17to20

            ' Pressiona Enter
            bot.FindElementByXPath("//*[@id=""fPP:numeroProcesso:NumeroOrgaoJustica""]").SendKeys Keys.Enter
            
            ' Aguarda 5 segundos
            Application.Wait Now + TimeValue("0:00:05")
        
      
    Next cell
    
  
    
    Set bot = Nothing
End Sub

Sub FillFieldWithID(bot As WebDriver, fieldID As String, value As String)
    Dim inputField As WebElement
    Set inputField = bot.FindElementByXPath("//*[@id=""" & fieldID & """]")
    
    ' Limpa o campo de texto antes de preencher
    inputField.Clear
    
    ' Preenche o campo com o valor
    inputField.SendKeys value
End Sub

Sub MoveToSheet(cell As Range, destSheet As Worksheet)
    cell.EntireRow.Copy destSheet.Rows(destSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Application.CutCopyMode = False
End Sub

Function IsTRF1(value As String) As Boolean
    ' Verifica se o valor é do TRF1 (14º dígito é 4, 15º é 0 e 16º é 1)
    If Len(value) = 20 And Mid(value, 14, 1) = "4" And Mid(value, 15, 1) = "0" And Mid(value, 16, 1) = "1" Then
        IsTRF1 = True
    Else
        IsTRF1 = False
    End If
End Function

[Alyson Ronnan Martins]

Boa noite @davimilazzo

Não consegui executar o código fornecido devido a esse erro: