Problema con ordenar en VBA

Hola

Estoy tratando de ordenar una columna de menor a mayor con expansion. Para eso estoy usando el siguiente código en un modulo al cual llamo al iniciar el user form que tiene el listbox donde se muestra la tabla.

Range("A1:K4500").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

la tabla tiene un header el cual se debe quedar en la misma intentar, asi que se debe ordenar a partir de la fila 2. El código lo hace perfectamente, el problema viene cuando comparto el libro de excel.

al ejecutarse la macro en el libro compartido también me ordena el header y se va hasta lo ultimo de la tabla cuando debería quedarse en la primera fila.

Ya se que los libros compartidos tienen limitaciones de macros, pero no aceptaría una respuesta diciendo eso PORQUE este problema antes no me sucedía y el código no lo he editado, es el mismo! D:

saludos,

gracias