Option Explicit

Private sinFTime(1 To 2) As Single, sinETime(1 To 2) As Single
Private Sh As Worksheet

Sub ScreenUpdating1()
    Dim i As Long, ii As Long
        Set Sh = Worksheets(2)
        Sh.Cells.ClearContents
        For i = 3 To 12
            Call TestA
            Call TestB
            For ii = 1 To 2
                Worksheets(1).Cells(i, ii + 1).Value = sinETime(ii)
            Next
        Next
End Sub

Private Sub TestA()
    Dim i As Long, j As Long, k As Long
    sinFTime(1) = Timer
    For i = 1 To 10
        For j = 1 To 30
            For k = 1 To 20
                Sh.Cells(j, k).Value = i
            Next
        Next
        Sh.Cells.ClearContents
    Next
    sinETime(1) = Timer - sinFTime(1)
End Sub

Private Sub TestB()
    Dim i As Long, j As Long, k As Long
    Application.ScreenUpdating = False
    sinFTime(2) = Timer
    For i = 1 To 10
        For j = 1 To 30
            For k = 1 To 20
                Sh.Cells(j, k).Value = i
            Next
        Next
        Sh.Cells.ClearContents
    Next
    sinETime(2) = Timer - sinFTime(2)
    Application.ScreenUpdating = True
End Sub