I got rid of the merged cells and noticed that the freeze pane was also interferring with the sort. I am still getting another error called:
Runtime error '2147417848(800101108)
Debug line is
.Apply (text is highlighted in red below in the code.
Code:
Sub SortDaysProvider()
Dim DayRange As Long
Dim TopRow As Long
Dim sRange As Range
Dim fRange As Range
Application.ScreenUpdating = False
For DayRange = 1 To 365
TopRow = (DayRange * 17) + 9
With ActiveWorkbook.Worksheets("Input Calendar (2012)")
Set sRange = .Range("E" & TopRow & ":" & "BN" & TopRow + 14)
Set fRange = .Range("E" & TopRow & ":" & "E" & TopRow + 14)
With .Sort
.SortFields.Add _
Key:=fRange, _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
.SetRange sRange
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
.SortFields.Clear
End With
End With
Next DayRange
Application.ScreenUpdating = True
End Sub
Thanks in advance for all your help with this!!!