How to select a range relative to the current cell 2

[kwbMitel]

I'm not very proficient at macro's and the help files are not helpful.

I'm trying to select cells in the same row relative to the current cell for the purpose of copying and transposing onto a new sheet but all entered into 1 column.

I've figured it out longhand but I don't want to adjust my ranges manually for the 50 rows that I am copying.

Here is what I am trying to do:

Range("A1").Select:

For X = 0 to 49

ActiveCell.Offset(X, 0).Activate
Range ???????? (need range command to select 200 cells wide starting with current cell)
Copy (I know how)
Select Sheet2 (I know How)
Range("A1").Select:
Paste and transpose (I know how)
Insert 200 Rows (this works)
Back to Sheet1
Next X

*******************************************************
Occam's Razor - All things being equal, the simplest solution is the right one.

 

[SkipVought]

Glad to see that it was useful to you!

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}