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

 

[longhair]

Squash,

Try the following:
Sub test()
Range("A1:C1&quot.Select
Selection.Cut
Range("A100&quot.Select
Do Until ActiveCell.Text = ""
ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Activate
Loop
ActiveSheet.Paste
Range("A2&quot.Select
End Sub

Regards,

longhair

 

[avrcan]

Take look at following:

Sub CutPaste_Data()
Range("A1:C1&quot.Cut Destination:= _
Range("A100&quot.Offset( _
Range("A100&quot.CurrentRegion.Rows.Count, 0)
End Sub

Andro (andrija.vrcan@dalmacijacement.hr)