Run Time Error '91: Object variable or With block variable not set

I have a simple macro that I made with the "record macro" feature that pulls in data from a different tab and then paste is as values to remove all links and then sorts it by one of the columns. For some reason I keep getting an error that says

Run Time Error '91:
Object variable or With block variable not set

When I hit the "debug" error it highlights this part of the code:

ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort. _
SortFields.Clear



The entire macro is below. Any ideas on what I did wrong or how to fix? Thank you in advance!



Sub Closest_Expiration_Dates()
'
' Closest_Expiration_Dates Macro
'
' Keyboard Shortcut: Ctrl+Shift+E
'
Sheets("Condensed NSAs").Select
Selection.Copy
Sheets("Closest Expiration Dates").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:R1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort. _
SortFields.Add2 Key:=Range("R1"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort. _
SortFields.Add2 Key:=Range("R1"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-3
End Sub

Try changing this line

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

Thanks. Gave it a shot and I still get the error. Appreciate your help.

The debugger keeps highlighting this line:
ActiveWorkbook.Worksheets("Closest Expiration Dates").AutoFilter.Sort. _
SortFields.Clear

Can you post a safe version of your workbook?

Go Advanced > Manage Attachments...

Unfortunately, I cannot post the workbook.

try replacing

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

Also please edit you original post to include code tags, the # icon in the reply/edit window.

Thanks. That did something strange and it started to put the data off to the side rather than refresh the data.

Also, I believe I've updated the post to include the code tags. Let me know if I did wrong. Thank you.

How about

Please Login or Register  to view this content.

The code tags in your op have not worked. If they were applied correctly the code would be in a box, like the code in this post.