Macro to Sort column B and C alphabetically

Hello i have a members list with with cell be containing members name (starting in B3) in the following format (lastname, firstname) then in Column C i have the members location. i have made a VBA that sorts the lists but it doesnt keep the members location and name together!
i want it to auto soft the names alphabetically but keep their location beside it in column C

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
Set x = Cells(2, Target.Column)
Dim y As Range
Set y = Cells(1000, Target.Column)

If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Then
Range(x, y).Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub

this is the code i am using, Can anyone tell me where i have gone wrong?
regards
Anthony

Hi Alansidman,
i understand what you mean but unsure how to put it into code! sorry im new to VBA

i recorded this one and it works as a button but when i put it into the worksheet code it does not auto work.

Sub Autosort()
'
' Autosort Macro
'

'
    Range("B3:C1300").Select
    ActiveWorkbook.Worksheets("Members").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Members").Sort.SortFields.Add Key:=Range("B3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Members").Sort
        .SetRange Range("B3:C1000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=203
End Sub

this code works however its not automatically doing it if i make a button it works

Sub Autosort()
'
' Autosort Macro
'

'
    Range("B3:C1300").Select
    ActiveWorkbook.Worksheets("Members").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Members").Sort.SortFields.Add Key:=Range("B3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Members").Sort
        .SetRange Range("B3:C1000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=203
End Sub