Sub SetupData()
    Dim arrData( 1  To  9 ,  1  To  9 ) As Double
    Dim i As Long, j As Long
    Randomize
    For i =  1  To  9 
        For j =  1  To  9 
            arrData(i, j) = Rnd
        Next j
    Next i
    Application.ScreenUpdating = False
    For x =  1  To  20000  Step  10 
        For y =  1  To  250  Step  10 
            With Cells(x, y).Resize( 9 ,  9 )
                .Value = arrData
                .Interior.ColorIndex =  5 
            End With
        Next y
    Next x
    Application.ScreenUpdating = True
End Sub

Sub Test()
    Dim i As Long, j As Long, x As Double
    x = Timer
    Application.ScreenUpdating = False
    For i =  1  To  20000  Step  10 
        For j =  1  To  250  Step  10 
            Cells(i, j).Resize( 9 ,  9 ).Copy Sheet2.Cells(i, j).Resize( 9 ,  9 )
        Next j
    Next i
    Application.ScreenUpdating = True
    MsgBox "50,000 areas in " & Format((Timer - x), "0.0 sec")
End Sub

Sub SetupData()
    Dim arrData( 1  To  256 ) As Double
    Dim i As Long, j As Long
    Randomize
    For i =  1  To  256 
        arrData(i) = Rnd
    Next i
    Application.ScreenUpdating = False
    For x =  1  To  10000 
        With Rows(x)
            .Value = arrData
            .Interior.ColorIndex =  5 
        End With
    Next x
    Application.ScreenUpdating = True
End Sub

Sub Test()
    Dim i As Long, j As Long, x As Double
    x = Timer
    Application.ScreenUpdating = False
    For i =  1  To  10000 
        Rows(i).Copy Sheet2.Rows(i)
        Application.CutCopyMode = False
    Next i
    Application.ScreenUpdating = True
    MsgBox "10,000 rows in " & Format((Timer - x), "0.0 sec")
End Sub