Новичок: ошибка при установке объекта диапазона на листе

Я очень новичок в пространстве VBA, и мне интересно, почему эта следующая строка кода не работает?

Я получаю сообщение об ошибке 1004: не удалось выполнить диапазон рабочего листа объекта.

Sub MMMatch()
Dim oCell as Range
Dim r_out as Range
Dim r_in as Range
Dim ws1 as worksheet
Dim ws2 as worksheet

Set ws1 = Worksheets("MM Limits")
Set ws2= Worksheets("PivotTable")

Set r_out= ws1.range(Range("A2"),Range("A2").endxldown)
Set r_in=ws2.range(range("D2"),range("D2").endxldown)

end sub

Я получаю сообщение об ошибке во второй последней строке. Хотя я мог бы добавить строки кода, чтобы сначала выбрать рабочий лист, прежде чем устанавливать объект диапазона, мне интересно, почему эта строка кода не работает?