Sub ODau()
Selection.Range("A1").Select
End Sub
Sub OCuoi()
Selection.Cells(Selection.Rows.Count, Selection.Columns.Count).Select
End Sub
Sub DongDau()
Range(Selection.Row & ":" & Selection.Row).Select
End Sub
Sub DongCuoi()
i = Selection.Row + Selection.Rows.Count - 1
Range(i & ":" & i).Select
End Sub