Sort multiple columns

[Av8tordude]

Book1
	A	B	C	D	E	F	G	H	I	J	K	L
1	PST			MST			CST			EST
2	LAS	LGB		ASE	TUS		AMA	DFW		ATL	SHV
3	LAX	SFO		CYS	ABQ		AUS	DAL		CAE	LCH
4	OAK	PSP		DEN			CRP	IAH		CLT	BTR
5	SAN	SMF		DRO			HOU	LBB		EWR	AEX
6	SEA	SJC		GJT			LNK	SAT		FLL
7				GUC			MSP			GSO
8				LAS			OMA			JFK
9				PHX			ORD			LGA
10				SLC			STL			MCO
Sheet1

Is there a way to sort the items automatically under each header.

ex.

Book1
	A	B	C	D	E	F	G	H	I	J	K	L
1	PST			MST			CST			EST
2	LAS	SJC		ABQ	SLC		AMA	SAT		ATL	LCH
3	LAX			ASE	TUS		AUS	STL		CAE	SHV
4	LGB			CYS			CRP			CLT
5	OAK			DEN			HOU			EWR
6	PSP			DRO			LBB			FLL
7	SAN			GJT			LNK			GSO
8	SEA			GUC			MSP			JFK
9	SFO			LAS			OMA			LGA
10	SMF			PHX			ORD			MCO
Sheet1

I tried using this code but it does not sort the other columns under each header..

Private Sub Worksheet_Change(ByVal Target As Range)

    Range("A2:C10").Sort Key1:=Range("A2"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("D2:F10").Sort Key1:=Range("D2"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("G2:I10").Sort Key1:=Range("G2"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("J2:L10").Sort Key1:=Range("J2"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

End Sub

 

[jindon]

For i = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
    Range(Cells(2, i), .Cells(Rows.Count, i).End(xlUp)).Sort Cells(2, i), 1
Next

 

[Av8tordude]

For i = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
    Range(Cells(2, i), .Cells(Rows.Count, i).End(xlUp)).Sort Cells(2, i), 1
Next

It gives me an error..

invalid or unqualified reference

any other suggestion?

 

[jindon]

delete "."

Range(Cells(2, i), Cells(Rows.Count, i).End(xlUp)).Sort Cells(2, i), 1

 

[Av8tordude]

delete "."

Range(Cells(2, i), Cells(Rows.Count, i).End(xlUp)).Sort Cells(2, i), 1

Almost there...

The headers should not be included in the sorting, because I get an error stating the cells need to be identical. What do I need to change so the headers are not included in the sorting?

 

[Av8tordude]

Is there a better way to write this code? I've concluded the code recommended inteferes with other parts of my spreadsheet.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet6.Unprotect Password:="T0nyul!a"
Range("B7:J37").Sort Key1:=Range("C7"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AA5:AA37").Sort Key1:=Range("AA5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AB5:AB37").Sort Key1:=Range("AB5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AC5:AC37").Sort Key1:=Range("AC5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AD5:AD37").Sort Key1:=Range("AD5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AE5:AE37").Sort Key1:=Range("AE5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AF5:AF37").Sort Key1:=Range("AF5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AG5:AG37").Sort Key1:=Range("AG5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AH5:AH37").Sort Key1:=Range("AH5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AI5:AI37").Sort Key1:=Range("AI5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AJ5:AJ37").Sort Key1:=Range("AJ5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AK5:AK37").Sort Key1:=Range("AK5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("AL5:AL37").Sort Key1:=Range("AL5"), Order1:=xlAscending, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Sheet6.Protect Password:="T0nyul!a"
End Sub

 

[jindon]

Almost there...
The headers should not be included in the sorting, because I get an error stating the cells need to be identical. What do I need to change so the headers are not included in the sorting?

Don't make me laugh...
If your sheet lyout posted is different from what you really have then never solved...

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet6.Unprotect Password:="T0nyul!a"
Range("B7:J37").Sort Key1:=Range("C7"), Order1:=xlAscending, Orientation:=xlTopToBottom,

 

[Av8tordude]

Don't make me laugh...
If your sheet lyout posted is different from what you really have then never solved...

My apologies...but would you agree to try on a test sheet then on the original project?