Sub Macro0()

'
' Macro0 Macro
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("A1:A782").Select
    Selection.Cut Destination:=Range("A2:A783")
    Range("A2:A783").Select
    ActiveWindow.SmallScroll Down:=-15
    ActiveWindow.ScrollRow = 737
    ActiveWindow.ScrollRow = 733
    ActiveWindow.ScrollRow = 727
    ActiveWindow.ScrollRow = 718
    ActiveWindow.ScrollRow = 697
    ActiveWindow.ScrollRow = 680
    ActiveWindow.ScrollRow = 669
    ActiveWindow.ScrollRow = 657
    ActiveWindow.ScrollRow = 647
    ActiveWindow.ScrollRow = 603
    ActiveWindow.ScrollRow = 575
    ActiveWindow.ScrollRow = 560
    ActiveWindow.ScrollRow = 508
    ActiveWindow.ScrollRow = 478
    ActiveWindow.ScrollRow = 443
    ActiveWindow.ScrollRow = 421
    ActiveWindow.ScrollRow = 391
    ActiveWindow.ScrollRow = 351
    ActiveWindow.ScrollRow = 324
    ActiveWindow.ScrollRow = 283
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 1
    Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With ActiveCell.FormulaR1C1 = "=R[1]C[-19]"
        .Range("A1").Select
    End With
    End Sub