Run time error 91 object variable or with block variable not set

Please help to resolve this error in the below code.

Iam getting error in Set MyRange

Dim MySheet As Worksheet
Dim MyRange As Range
Dim UList As Collection
Dim UListValue As Variant
Dim i As Long



Set MySheet = Worksheets("Data")

Set MyRange = Range(MySheet.AutoFilter.Range.Columns(2).Address)