Moving data from one workbook to another based on criteria

[Exceldud]

I am trying to move data from one workbook to another based on value selected in a drop down list. The code uses the selection from the list and filters the data and then moves to another workbook. The below code was working earlier but now it gives a Autofilter method of range class failed on the line marked below. Please help.

Sub moveData()
Application.ScreenUpdating = False
Dim x As Range
Dim rng As Range
Dim last As Long
Dim sht, shtButtons, CustName, PathOnly, destSht, newFile As String
Dim newBook As Excel.Workbook
Dim Workbk As Excel.Workbook
PathOnly = ThisWorkbook.Path
newFile = "SalesDashboard.xlsm"
'Specify sheet name in which the data is stored
sht = "Sales"
shtButton = "Buttons"
'Specify destination sheet name
destSht = "SalesOrder"
Set newBook = Workbooks.Open(PathOnly & "\" & newFile)
newBook.Activate
newBook.Worksheets(destSht).Activate
Selection.Delete Shift:=xlUp
'Workbook where VBA code resides
Set Workbk = ThisWorkbook
Workbk.Activate
With Workbk.Sheets(shtButton)
Set x = .Range("H6")
End With
'Filter based on Customer Name in Column B
last = Workbk.Sheets(sht).Cells(Rows.Count, "B").End(xlUp).Row
With Workbk.Sheets(sht)
Set rng = .Range("A1:T" & last)
End With
With rng
.AutoFilter ' THIS IS WHERE THE CODE FAILS
.AutoFilter Field:=2, Criteria1:=x.Value
.SpecialCells(xlCellTypeVisible).Copy
newBook.Activate
newBook.Worksheets(destSht).Activate
Worksheets(destSht).Range("A1").Select
ActiveSheet.Paste
End With
ActiveWorkbook.SaveAs Filename:=(PathOnly & "\" & x & "_Dashboard_" & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsm")
' Turn off filter
Workbk.Sheets(sht).AutoFilterMode = False
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub