Getting Range To Step Through In A Loop

This little piece of code is where I'm having problems.

A36:A45 will always be the same.

The problem is in getting ("R2:AA2") to move to ("R3:AA3") ...

What needs to happen for the loop to work?

Code:
Worksheets("List").Select
Range("A36:A45").Select
Selection.Copy
Worksheets("Month").Select
Range("R2:AA2").Select

I've tried:

Dim rngDC as Range

then Set rngDC = Worksheets("Month").Range("R2:AA2")

So that I can later use rngDC = RngDC.Offset(1,0)

However, when I try rngDC.Select I get an error saying I can't select the variable that way.

Here's the complete code:

Sub Import()

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

With Sheets("Month")

[Code] ....