Sub test()
    Dim arr()
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    ReDim arr(1 To lLastRow, 1 To 1)
    arr = Range(Cells(1, 1), Cells(lLastRow, 1)).Value
End Sub

Sub main()
    Dim SheetAd1 As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set SheetAd1 = ThisWorkbook.Sheets.Add
    
    Call Save_Chart2("exampleChart", SheetAd1)
    Call Save_Chart2("exampleChart2", SheetAd1)
    
    SheetAd1.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Ready!!!"
End Sub



Sub Save_Chart2(ByVal NameFile As String, ByRef Sh1 As Worksheet)
    Dim pic As Object
    
    ThisWorkbook.Sheets("Charts").Activate
    ActiveSheet.Shapes.Range(Array("Select_area")).Select
    Selection.Copy
    Sh1.Activate
    Set pic = ActiveSheet.Pictures.Paste
    pic.Copy
    
    Set Diagram = Sh1.Shapes.AddChart().Chart
    
    Diagram.ChartArea.Height = pic.Height
    Diagram.ChartArea.Width = pic.Width
    Diagram.Paste
    Diagram.Export Filename:=ThisWorkbook.Path & "\" & NameFile & ".gif", FilterName:="GIF"
    pic.Delete
    Diagram.Parent.Delete
End Sub

Open file For Input As #1

1. padding:0; margin:0 0 0.2em 0;">Список детей(1)</h4><ul>                 <li>Иванов Сергей              </li>                <li>Андреев Иван                </li>
2. padding:0; margin:0 0 0.2em 0;">Список детей(1)</h4><ul>                 <li>Иванов Андрей                </li>                <li>Андреев СЕРГЕЙ Петрович                </li>

(?:Список детей\(1\)<[\s\S]+li>([\s\S]+Сергей[\s\S]*)(?:<\/li))

Sub replac()
    inp = "59(0),51(1.45),29(0),49(11.3),29(0),52(12),57(0),29(0),52(7),29(0),10(0),29(0)"
    outp = Replace(inp, "29(", "замена(", 30)
    Debug.Print outp
End Sub
 outp=",замена(0),52(12),57(0),замена(0),52(7),замена(0),10(0),замена(0)"