Excel Macro Help ActiveCell range

[squash]

hello,
I mostly hang in the Unix scripting forums, however need to expand my horizons.
I am leaning VB through MS Excel. I am writing a little macro and getting stuck on a few, I am sure minor, points.

Task
1. select active cell plus three cells to the right
(So hold down shift key and arrow right three times)
2. cut range
3. go to A100
4. go to next open cell below A100
(so CNTRL down-arrow, down-arrow again)
5. paste
6. return to A2.


Here is what I have.

ActiveCell.Offset(0, 3).Activate
Selection.Cut
ActiveWindow.SmallScroll Down:=87
Range("A99&quot.Select
Selection.End(xlDown).Select
Range("A102&quot.Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-99
Range("A2&quot.Select

Ok,
I have spent a while reading and trying several things, Like record macro and view results.
But I am still stuck.
Any help is greatly appreciated.

Squash