Attribute VB_Name = "testapplicaiotnother5"
Sub テスト()

    Dim time1 As String
    Dim time2 As String
    
    time1 = anyCopy()
    
    Application.ScreenUpdating = False
    
    time2 = anyCopy()
    
    MsgBox "再描画ありは" & time1 & "秒、再描画無しは" & _
        time2 & "秒"
    
    Application.ScreenUpdating = True
    
End Sub

Function anyCopy() As Variant

    Dim startTime As Variant
    Dim endTime As Variant
    
    Cells(1, 1).Copy
    
    startTime = Time

    For i = 1 To 500
        For j = 1 To 100
            ActiveSheet.Paste Destination:=Cells(i, j)
        Next j
    Next i

    stopTime = Time
    
    anyCopy = (stopTime - startTime) * 24 * 60 * 60

End Function