Comor ordenar columna de rango variable

grabe una macro y no se como hacer el rango variable en al parte donde dice
SetRange range ("A1:M17")
la macro grabada es esta:
Sub Ordenar_responsable2()
'
' Ordenar_reponsable2 Macro
Columns("I:I").Select
ActiveWorkbook.Worksheets("BASEGENE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BASEGENE").Sort.SortFields.Add Key:=Range("I1").End(xlDown), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BASEGENE").Sort
.SetRange Range("A1:M17")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

antes que nada muchas gracias por tu respuesta y amplios reconocimientos a ti y a esta pagina, por otro lado
La tabla que utilizo va del rango  A1 a M1, y observo que el rango que tiene el codigo es de A1:I2900, lo que sucede que combino el codigo que te di con otras macros que tienen el mismo codigo fijo  .set range  range(A1:M17) , por lo que tu codigo me marca error y ademas se manejan varias hojas, ¿se podria modificar el codigo que te di en la parte puntualizada , y aplicar ese cambio a las demas macros?

GRACIAS ME AYUDO MUCHO TU CODIGO GRACIAS