Ускорение работы макроса (преобразование данных к нужному формату)

With ActiveSheet
If .FilterMode Then .ShowAllData
iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

    Columns("H:H").Select
    Selection.ClearContents

Columns("H:H").ClearContents

Sub Преобразовать()
'
' Макрос1 Макрос
'
    Dim beg_hour As Double
    Dim end_hour As Double
    Dim WbRs As Workbook
    IstFile = "resourse_test.xlsx"
    Set WbRs = Workbooks(IstFile)
    
    a = AccelerateExcel()
  
    'таймфрейм
    tf = Workbooks("преобразователь.xlsm").Worksheets("параметры").Cells(2, 2)
    'подготавливаем 11-12____ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ
    WbRs.Sheets("11-12").Activate
    With Range(Cells(1, 3), Cells(ActiveSheet.UsedRange.Rows.Count, 6))
        .Replace What:=".", Replacement:=","
        'из-за косяков ЕКСЕЛЯ делаем финт ушами и приводим к нужным значениям
        .Value = .Value / 100000
    End With
    
    With Columns("C:C")
        'вставляем столбец
        .Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        .NumberFormat = "dd/mm/yy h:mm;@"
        .ColumnWidth = 15
        'заполняем его данными по дате
        .Formula = "=DATEVALUE($A1)+TIMEVALUE($B1)"
        'превращаем просто в числа
        .Value = .Value
    End With
'......