help with macro - creating new columns/copying/creating new worksheets from default

have this macro, but the column names have changed in the excel, this macro scrolls by number of colums, how do i change to use column header names instead of number of columns ? also each time its run have to change date in macro, any way to make this selectable in excel before run macro ?


Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=12
Selection.AutoFilter Field:=15, Criteria1:="=GE*", Operator:=xlAnd, _
Criteria2:="<>GE Energy - Hydro"
ActiveWindow.ScrollColumn = 1
Cells.Select
Selection.Copy
Sheets.Add.Name = "Default Data"
ActiveSheet.Paste
Columns("A:AZ").Select
Application.CutCopyMode = False
Selection.ColumnWidth = 20
Rows("1:1").Select
Selection.AutoFilter
Worksheets("Default").Delete

ActiveWindow.SmallScroll ToRight:=1
Selection.AutoFilter Field:=6, Criteria1:=">07/12/2010", Operator:=xlAnd, _
Criteria2:="<07/19/2010"
ActiveWindow.SmallScroll Down:=159
ActiveWindow.ScrollRow = 1
Selection.AutoFilter Field:=6, Criteria1:=">07/12/2010 0:00", Operator:= _
xlAnd, Criteria2:="<07/19/2010 0:00"
Cells.Select
Range("B1").Activate
Selection.Copy
Sheets.Add.Name = "Percent OT"
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=39
Columns("A:AZ").Select
Range("AZ1").Activate
Selection.ColumnWidth = 20
ActiveWindow.ScrollColumn = 1
Range("D2").Select
ActiveWindow.SmallScroll Down:=-6
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=14
Selection.AutoFilter Field:=18, Criteria1:="<=0", Operator:=xlAnd
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Sheets("Default Data").Select
Rows("1:1").Select
Range("B1").Activate
Selection.AutoFilter
Rows("1:1").Select
Range("B1").Activate
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=2
Selection.AutoFilter Field:=5, Criteria1:="<>c", Operator:=xlAnd
Selection.AutoFilter Field:=6, Criteria1:="<07/19/2010", Operator:=xlAnd
Cells.Select
Range("C1").Activate
Selection.Copy
Sheets.Add.Name = "Overdue"
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=45
Columns("A:AZ").Select
Range("AZ1").Activate
Selection.ColumnWidth = 20
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-3
ActiveWindow.SmallScroll ToRight:=6
Rows("1:1").Select
Range("G1").Activate
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=14
Range("R2").Select
Selection.Sort Key1:=Range("R2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Range("B2").Select
Sheets("Default Data").Select
Rows("1:1").Select
Range("C1").Activate
Selection.AutoFilter
Selection.AutoFilter
Columns("D:D").Select
ActiveWindow.SmallScroll ToRight:=13
Selection.AutoFilter Field:=17, Criteria1:=">07/12/2010", Operator:=xlAnd _
, Criteria2:="<07/19/2010"
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=174
ActiveWindow.ScrollRow = 1
Cells.Select
Selection.Copy
Sheets.Add.Name = "Span"
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 24
ActiveWindow.SmallScroll ToRight:=17
Columns("A:AZ").Select
Range("AZ1").Activate
Selection.ColumnWidth = 20
ActiveWindow.ScrollColumn = 1
Sheets("Default Data").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="<>c", Operator:=xlAnd
Selection.AutoFilter Field:=6, Criteria1:=">07/19/2010", Operator:=xlAnd, _
Criteria2:="<07/26/2010"
Cells.Select
Selection.Copy
Sheets.Add.Name = "Lookahead"
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 24
ActiveWindow.SmallScroll ToRight:=16
Columns("A:AZ").Select
Range("AZ1").Activate
Selection.ColumnWidth = 20
ActiveWindow.ScrollColumn = 1
Range("A1").Select

Sheets("Default Data").Select
Selection.AutoFilter
Range("A1").Select
Sheets("Span").Select
Range("A1").Select
Sheets("Overdue").Select
Range("A1").Select
Sheets("Percent OT").Select
Range("A1").Select
End Sub