I designed this code on Excel 2007 and when I upgraded to 2010, it no longer works. It deletes everything except the header row. Any help would be appreciated.


Sub Sort()
Attribute Sort.VB_Description = "Macro recorded 9/1/2010 by mckeej"
Attribute Sort.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Sort and delete Macro
' Macro Created 2/1/2011 by mckeej
'
'Select range and sort data
    Range("A1:F60000").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
        
    'Delete Unwanted Columns
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    
    'Delete all but 10AM Pressures
'Define variable
Dim LR As Long

'Find the last rown with data in it
    LR = Range("A" & Rows.Count).End(xlUp).Row
    
'Filter column C from row 1 to the last row; find all records that arent 10:00:00 AM
'(formatted as h:mm:ss AM/PM)
    ActiveSheet.Range("C1:C" & LR).AutoFilter Field:=1, Criteria1:= _
            "<>" & Format("10:00:00 AM", "h:mm:ss AM/PM")
    
'Delete records without notifications
    Application.DisplayAlerts = False
    
'Delete all visible records except the header row
    ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
    
'Turn warnings back on
    Application.DisplayAlerts = True
    
'Clear the filter
    ActiveSheet.AutoFilterMode = False


End Sub