Excel Macro

Sub delete4857to5236()
'
' delete4857to5236 巨集
'
' 快速鍵: Ctrl+a
'
    Application.Goto Reference:="R4857:R5236"
    Selection.Delete Shift:=xlUp
    Rows("1:1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=6
    Rows("1:10000").Select
    Selection.RowHeight = 18.00
    Range("A1").Select
    Selection.End(xlDown).Select
End Sub