Macro para ordenar los datos con respecto a la columna.

Problema

Estoy enfrentando un problema en la clasificación de la escritura de datos al encabezado de columna. Tengo 25 columnas en las que necesito ordenar el sata wrt en dos de las columnas. Cuando probé esto con macros, encontré que los datos también se ordenan junto con el encabezado de la columna y me sorprenden aquí sin ninguna pista.

Solución

Debe comenzar desde la clasificación de la fila 2 y decir que hay un encabezado

 Selection.Sort _ Key1: = Range ("A2"), Order1: = xlAscending, _ Header: = xlS, OrderCustom: = 1, _ MatchCase: = False, Orientation: = xlTopToBottom, _ DataOption1: = xlSortNormal