Increment Range Cell in Do Loop

Is there any way to step through a range of non-contiguous cells in this loop? I've been racking my brains on this one and haven't gotten the next cell to increment.

New ideas and methods are always welcomed.

Sub DateStep()

Dim Dcell As Range
Dim counterD As Integer
Set Dcell = Range("DATES") '<--- ("A1", "C1", "E1", "F1", "H1", "J1","L1")
counterD = 1

Do

If counterD = 6 Then Dcell.Value = Dcell.Cells(1, 3) 'How to increment to next cell?
If counterD = 11 Then Dcell.Value = Dcell.Cells(1, 7)
If counterD = 16 Then Dcell.Value = Dcell.Cells(1, 9)
If counterD = 21 Then Dcell.Value = Dcell.Cells(1, 11)
If counterD = 26 Then Dcell.Value = Dcell.Cells(1, 12)
If counterD = 31 Then Dcell.Value = Dcell.Cells(1, 13)
If counterD = 36 Then Exit Do
MsgBox Dcell & Chr(13) & "Counter=" & counterD
   counterD = counterD + 1


Loop

End Sub

Thanks