Hvorfor virker Set ikke?

Hej Alle

Jeg førsøger at med følgende at lave 2 regions y og z:

With Application
      Set WS1 = .InputBox("Marker overskrift af område 1(område med tagname i russiske tekster)", Type:=8)
      Set WS2 = .InputBox("Marker overskrift af område 2(område med tagname i engenske tekster)", Type:=8)
  End With

  Last1 = WS1.Cells(65536, 1).End(xlUp).Row
  Last2 = WS2.Cells(65536, 1).End(xlUp).Row
   
  Set y = Worksheets(WS1.Worksheet.name).Range(Cells(2, 1), Cells(Last1, 2))
  Set z = Worksheets(WS2.Worksheet.name).Range(Cells(2, 1), Cells(Last2, 3))