Тормоза в Excel

Sub Макрос14()
Dim i, sT1, sT2
   sT1 = Timer
   For i = 1 To 200000
      ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = '1'
   Next i
   sT2 = Timer
   MsgBox sT2 - sT1
End Sub

Dim xl As Excel.Application
Public Sub form_activate()
Dim i, sT1, sT2   
   Set xl = New Excel.Application
   xl.Workbooks.Add
   sT1 = Timer
   For i = 1 To 200000
      xl.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = '1'
   Next i
   sT2 = Timer
   MsgBox sT2 - sT1
End Sub

SET AppExcel=(',Excel.Appliction')
SET wBook=AppExcel.Workbok.Add
SET wSheet=wBook.Worksheets(1)
For i=1 to 200000
wSheet.Cells(i,1).value=i
next i
 
SET wSheets=nothing
SET wBook=nothing
SET AppExcel=Nothing

With wSheet
For i=1 to 200000
.Cells(i,1).value=i
next i
End with

Dim i as Integer

Sub MakeNewModule()
    Dim excelApp As Excel.Application
    Dim oComponents As VBComponents
    Dim codeFile As String
    ' определяем имя файла, в котором содержится наш VBA-код, критичный в плане быстродействия:
    codeFile = 'C:MyVbCode.txt'
    ' создаём новую книгу:
    Set excelApp = New Excel.Application
    With excelApp
        .Workbooks.Add
        Set oComponents = .ActiveWorkbook.VBProject.VBComponents
        ' добавляем в эту новую книгу VBA-модуль:
        oComponents.Add vbext_ct_StdModule
        ' именуем добавленный модуль ('для красоты'):
        oComponents(oComponents.Count).Name = 'NewModule'
        ' вставляем в него код, взятый из файла:
        oComponents(oComponents.Count).CodeModule.AddFromFile codeFile
        Set oComponents = Nothing
        ' сохраняем новую книгу:
        .ActiveWorkbook.SaveAs 'C:MyNewBook.xls'
        ' запускаем макрос (предполагаем, что в «MyVbCode.txt» есть процедура «Sub HELLO»):
        .Run 'HELLO'
        .Quit
    End With
    Set excelApp = Nothing
End Sub

Public Sub Populate( _
   arr() As Variant, _
   ByRef ws As Worksheet, _
   Optional ByVal firstRow As Integer = 1, _
   Optional ByVal firstColumn As Integer = 1
   )
   Dim i As Integer, j As Integer   
   With ws
      For i = 0 To UBound(arr, 1)
         For j = 0 To UBound(arr, 2)
            If Not IsEmpty(arr(i, j)) And arr(i, j) <> '' Then
               .Cells(j + firstRow, i + firstColumn).Value = arr(i, j)
            End If
         Next j
      Next i
   End With
End Sub