VBA for next column over

[robertdseals]

OK, last question of the day. I have this VBA

Sub Macro6()
' Macro6 Macro


Sheets("Sheet7").Select
Range("B5:C40").Select
Selection.Copy
Sheets("Sheet9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Qr2:Qr56").Select
For Each xCell In Selection
xCell.Value = CDec(xCell.Value)
Next xCell
End Sub

This copies data from two columns in sheet7 and paste them into sheet9. I paste them into the active cell. My problem is in this section:
Range("Qr2:Qr56").Select
For Each xCell In Selection
xCell.Value = CDec(xCell.Value)
Next xCell

I don't always want to select range QR. I want to select the 2nd column of where ever I pasted my data.
Thoughts?

 

[robertdseals]

I think I've done it....
Sub Macro6()
'
' Macro6 Macro
'


'
Sheets("Sheet7").Select
Range("B5:C40").Select
Selection.Copy
Sheets("Sheet9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)


For Each xCell In Selection
xCell.Value = CDec(xCell.Value)
Next xCell
ActiveCell.Offset(1, 0).Select
Loop


End Sub