VBA Change Number format in word of data imported from excel

what I'm trying to achieve is to change the format of numbers that I import from a excel sheet and print them in the word document table with the format "0.00%". Prechanging the format in excel is no use, because whenever the data is transcribed it just pastes the original number.

Here's the code that I used:

Const stWordDocument As String = "Doc.docm"
    
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdCell As Word.Cell
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim lnCountItems As Long
    Dim vaData As Variant

    Set wbBook = ThisWorkbook
    Set wsSheet = wbBook.ActiveSheet
    vaData = ActiveSheet.Range(Cells(1, "F"), Cells(rcount, lastcol0)).Value

    Set wdApp = CreateObject("word.Application")
    Set wdDoc = wdApp.Documents.Open("https://orgindustrie-my.sharepoint.com/personal/Different_person_org_com/Documents/folder/subfolder/subsubfolder/Doc.docm")
    wdApp.Visible = True

For i = 1 To lastcol0 - 5 Step 1
    lnCountItems = 1
        For Each wdCell In wdDoc.Tables(1).Columns(i).Cells
            If lnCountItems = rcount + 1 Then
                Exit For
            Else
                Cell_Text = wdCell.Range.Text
                whte = IsNumeric(vaData(lnCountItems, i))
                If whte = True Then
                    wdCell.Range.Text = Format(Cell_Text, "0.00%")
                End If
                wdCell.Range.Text = vaData(lnCountItems, i)
                lnCountItems = lnCountItems + 1
            End If
        Next wdCell
    Next i

This by some reason identifies all excel data as a numeric value, and all word data as non numeric value, so when i use

whte = IsNumeric(vaData(lnCountItems, i))

it's always true (this also doesn't change the format of the output in the line wdCell.Range.Text = Format(Cell_Text, "0.00%"))

if i change it to word data like

whte = IsNumeric(Cell_Text)

it's always false

it always comes in the form

word example output

Excel example source

I tried using

wdCell.Range.Text = FormatPercent(Cell_Text, 2)

but error "Type Mismatch" appears

I also tried using

wdCell.Range.Text.NumberFormat = "0.00%"

here, error "Invalid Qualifier" appears or "Method or data member not found" when I remove .Text

Something that might be important is that this numbers come from a .Sumifs line

.Cells(i, lastcol).Value = Application.WorksheetFunction.SumIfs(Range(Cells(rcount, "E"), Cells(2, "E")), Range(Cells(rcount, "B"), Cells(2, "B")), Cells(i, "B"))

I don't know what else to try, any help would be highly appreciated.

rcount= last row with information
lastcol0= last column with information 
lastcol= last column without information ( basically lastcol0 + 1 )

More like this maybe?

For Each wdCell In wdDoc.Tables(1).Columns(i).Cells
    If lnCountItems = rcount + 1 Then
        Exit For
    Else
        v = vaData(lnCountItems, i)                   'get value from array
        If IsNumeric(v) Then v = Format(v, "0.00%")   'format if numeric
        wdCell.Range.Text = v                         'put in cell
        lnCountItems = lnCountItems + 1
    End If
Next wdCell