[Sugestão] Consegui fazer essa automação com a macro e foi bem mais fácil kk

Sub Ajustes_e_Substituição()
'
' Ajustes_e_Substituição Macro
'

'
    Columns("B:B").Select
    Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Columns("H:H").Select
    Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Columns("F:F").Select
    Selection.Style = "Percent"
    Columns("E:E").Select
    Selection.Style = "Currency"
    Columns("G:G").Select
    Selection.Style = "Currency"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$253"), , xlYes).Name = _
        "Tabela3"
    Range("Tabela3[#All]").Select
    ActiveSheet.ListObjects("Tabela3").TableStyle = "TableStyleMedium1"
End Sub
Sub Ajustes_e_Substituição()
'
' Ajustes_e_Substituição Macro
'

'
    Columns("B:B").Select
    Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Columns("H:H").Select
    Selection.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Columns("F:F").Select
    Selection.Style = "Percent"
    Columns("E:E").Select
    Selection.Style = "Currency"
    Columns("G:G").Select
    Selection.Style = "Currency"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$253"), , xlYes).Name = _
        "Tabela3"
    Range("Tabela3[#All]").Select
    ActiveSheet.ListObjects("Tabela3").TableStyle = "TableStyleMedium1"
End Sub