macro need quite complicated data sorting

Option Explicit
Sub SplitData()
Dim c As Range, a As Long, b As Long, LR As Long, LUC As Long
Dim Sp
Application.ScreenUpdating = False
For Each c In Range("A3", Range("A" & Rows.Count).End(xlUp))
  Sp = Split(c.Value, ".")
  b = UBound(Sp) - 1
  For a = LBound(Sp) To b
    Cells(c.Row, a + 5) = Right(Sp(a), 2) & "." & Left(Sp(a + 1), 2)
  Next a
Next c
LR = Cells(Rows.Count, 1).End(xlUp).Row
LUC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Range(Cells(3, 5), Cells(LR, LUC)).NumberFormat = "0.00"
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub SplitData()
Dim c As Range, a As Long, b As Long, MyU As Long, LR As Long, LUC As Long
Dim Sp
Dim Hold As String
Application.ScreenUpdating = False
For Each c In Range("A2", Range("A" & Rows.Count).End(xlUp))
  Sp = Split(c.Value, ".")
  Hold = Left(Sp(0), Len(Sp(0)) - 2)
  MyU = 0
  For b = 1 To Len(Hold) Step 1
    Select Case Mid(Hold, b, 1)
      Case Is = "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
        MyU = MyU + 1
        If MyU = 2 Then
          Cells(c.Row, 2) = Left(Hold, b - 1)
          Hold = Right(Hold, Len(Hold) - b + 1)
          Exit For
        End If
    End Select
  Next b
  MyU = 0
  For b = 1 To Len(Hold) Step 1
    Select Case Mid(Hold, b, 1)
      Case Is = "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
        MyU = MyU + 1
        If MyU = 3 Then
          Cells(c.Row, 3) = Left(Hold, b - 1)
          Hold = Right(Hold, Len(Hold) - b + 1)
          Cells(c.Row, 4) = Hold
          Exit For
        End If
    End Select
  Next b
  b = UBound(Sp) - 1
  For a = LBound(Sp) To b
    Cells(c.Row, a + 5) = Right(Sp(a), 2) & "." & Left(Sp(a + 1), 2)
  Next a
Next c
LR = Cells(Rows.Count, 1).End(xlUp).Row
LUC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Range(Cells(3, 5), Cells(LR, LUC)).NumberFormat = "0.00"
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub SplitData()
Dim c As Range, a As Long, b As Long, MyU As Long, LR As Long, LUC As Long
Dim Sp
Dim Hold As String
Application.ScreenUpdating = False
For Each c In Range("A2", Range("A" & Rows.Count).End(xlUp))
  Sp = Split(c.Value, ".")
  Hold = Left(Sp(0), Len(Sp(0)) - 2)
  MyU = 0
  For b = 1 To Len(Hold) Step 1
    Select Case Mid(Hold, b, 1)
      Case "A" To "Z"
        MyU = MyU + 1
        If MyU = 2 Then
          Cells(c.Row, 2) = Left(Hold, b - 1)
          Hold = Right(Hold, Len(Hold) - b + 1)
          Exit For
        End If
    End Select
  Next b
  MyU = 0
  For b = 1 To Len(Hold) Step 1
    Select Case Mid(Hold, b, 1)
      Case "A" To "Z"
        MyU = MyU + 1
        If MyU = 3 Then
          Cells(c.Row, 3) = Left(Hold, b - 1)
          Hold = Right(Hold, Len(Hold) - b + 1)
          Cells(c.Row, 4) = Hold
          Exit For
        End If
    End Select
  Next b
  b = UBound(Sp) - 1
  For a = LBound(Sp) To b
    Cells(c.Row, a + 5) = Right(Sp(a), 2) & "." & Left(Sp(a + 1), 2)
  Next a
Next c
LR = Cells(Rows.Count, 1).End(xlUp).Row
Application.Volatile
LUC = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Range(Cells(3, 5), Cells(LR, LUC)).NumberFormat = "0.00"
Application.ScreenUpdating = True
End Sub