Como remplazar un rango de celdas con una variable

Hola Amigos

Quiero ordenar automáticamente unas columnas cuando se carguen o modifiquen datos en alguna de ellas, las columnas pueden ser 10, 100 o 1000, esto es lo que voy a usar:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("k2:k218")) Is Nothing Then
Range("k2:k218").Sort key1:=Range("k2"), order1:=xlAscending, Header:=xlNo, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If

End Sub

Mi pregunta es: como sustituyo ese rango Range("k2:k218") con una variable utilizando la celda modificada, me explico si no fue en la columna K sino en la columna AA o ZZ, las celdas 2 a la 218 nunca cambiaran y como concatenaría esa variable.

Gracias