Dim Writeme as Range


Set WriteMe = Worksheets("Imp").Range(ActiveCell.Address)
Writeme.Activate
MsgBox (WriteMe.Address)
Set WriteMe = WriteMe.Range(ActiveCell.Offset(1, 0).Address)
WriteMe.Select
MsgBox (WriteMe.Address)

The first message box reports $D$1

The second message box reports $G$1)

What I want is $D$2.

Which I can get with

Set WriteMe = WriteMe.Range(ActiveCell.Offset(1, -3).Address)
But that isn't very satisfactory

What am I doing wrong here?
How can I increment a range adress?
How can I increment a range adress on a worksheet that is not active?