Sub Busy_Hour_Last6_Days()
'
' Busy_Hour_Last6_Days Macro
'
'
Range("D1:ABT30").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells.Select
Cells.EntireColumn.AutoFit
Range("J1").Select
Selection.End(xlDown).Select
Range("H469").Select
Selection.End(xlDown).Select
Range("I551").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Columns("J:M").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
Selection.AutoFilter
Range("C6").Select
ActiveSheet.Range("$A$1:$AD$745").AutoFilter Field:=2, Criteria1:="20"
Range("B1:Z742").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B1").Select
ActiveCell.FormulaR1C1 = "1st"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:AF1"), Type:=xlFillDefault
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
Sheets("Sheet2").Select
Range("B2:H2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Range("B2").Select
ActiveSheet.Paste
[B] Range("H1").Select[/B]
Dim X As Integer
Dim Y As Integer
Y = 0
X = 32
Do While X > 1
If ActiveWorkbook.Sheets("Sheet2").Cells(3, X).Value <> "" Then
ActiveWorkbook.Sheets("Sheet3").Cells(1, X).Value = ActiveWorkbook.Sheets("Sheet2").Cells(1, X).Value
Y = Y + 1
End If
If Y = 6 Then
Exit Do
End If
X = X - 1
Loop
End Sub