Kako da importujem ovu tabelu?

Code:


Public Sub SrediHTML()
    Zameni "[<]img src=im/1?.gif[>]", "1"
    Zameni "[<]img src=im/2?.gif[>]", "2"
    Zameni "[<]img src=im/X?.gif[>]", "X"
    Zameni "[<]img src=im/1X?.gif[>]", "1X"
    Zameni "[<]img src=im/12?.gif[>]", "12"
    Zameni "[<]img src=im/X1?.gif[>]", "X1"
    Zameni "[<]img src=im/X2?.gif[>]", "X2"
    Zameni "[<]img src=im/21?.gif[>]", "21"
    Zameni "[<]img src=im/2X?.gif[>]", "2X"
End Sub

Private Sub Zameni(strSlika As String, strOznaka As String)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = strSlika
        .Replacement.Text = strOznaka
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Code:
Private Declare Function GetLocaleInfo Lib "KERNEL32" _
Alias "GetLocaleInfoA" _
(ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
 
Private Const LOCALE_SDECIMAL = &HE
Private Declare Function GetThreadLocale Lib "KERNEL32" () As Long
Private Declare Function GetSystemDefaultLCID Lib "KERNEL32" () As Long
Private Declare Function GetUserDefaultLCID Lib "KERNEL32" () As Long
 
Private Function GetDecimalSep() As String
Dim LCID As Integer
Dim Data As String
Dim Ret As Integer
Dim DataLen As Long
 
' Get the local decimal seperator
' Find the threads local
LCID = GetThreadLocale
 
' Find the required size of the output variables
Ret = GetLocaleInfo(LCID, LOCALE_SDECIMAL, Data, DataLen)
 
If Ret <> 0 Then
     ' prepare the output variable
     DataLen = Ret
     Data = Space(DataLen)
     Ret = GetLocaleInfo(LCID, LOCALE_SDECIMAL, Data, DataLen)
Else
     ' Error no data found
     ' enter some good error handling here, using GetLastError()
End If
' Remove the null terminator from the string
GetDecimalSep = Left(Data, DataLen - 1)
 
End Function

Code:
Public Function DecSym() As String
    If WorksheetFunction.IsNumber("3,5") Then DecSym = "," Else DecSym = "."
End Function

Code:
=ISERROR(-"3,5")

Code:
Public Function GetDecPoint() As String

    GetDecPoint = Format$(0, "#.#")
End Function