Macro para ordenar desde la Columna A2 hasta la Columna AQJ2, todos los valores que hayan en ellas, en orden Alfabético.

Necesito ordenar los valores existentes en cada columna desde A2:AQJ500 con una macro, cada vez que se haga un cambio en alguna celda de la columna activa, tengo esta macro, pero solo me hace el cambio en la columna A:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
'With Columns(1)
.Sort key1:=.Cells(1, 1)
End With
End If
End Sub