求大神帮忙！！！

一个sheet里想输入多个命令，如下：
第一个命令：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, [range_select1]) Is Nothing Then
[cur_select1] = ActiveCell.Value
End If
End Sub
第二个命令：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, [range_select2]) Is Nothing Then
[cur_select2] = ActiveCell.Value
End If
End Sub
以上的区别只有两个[ ]里的内容不同，请问如何写在一个sheet里？应该怎么修改？