Every Column of workbook sort automatically

[HaroonSid]

Hello Everyone : this code sort data of every Column of workbook
i want sort only range e.g (c10:c61) of sheet(10)
plz correct this code :

Private Sub Worksheet_Change(ByVal Target As Range)

Columns(Target.Column).Sort _
Key1:=Cells(1, Target.Column), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

sample.xls