×　Dim r As Rangeとなるのは
○　Dim r As rangeとなるのは

変数もrだったし例えが紛らわしかったですｗ　ごめんなさい。
Rowsと自動大文字されるのにrowは自動で大文字にならないって事です