Help with Excel Macro

[vidyashankara]

I am new to excel and I need to make a macro that reads data from Sheet1 and pastes it into sheet2 successively.

This is how my sheet one looks..

A1 10 1249
A2 13 1232
A3 21 2312
.
.
.
A1 402 12212
A2 432 23323
A3 442 23232
.
.
.

I need Sheet 2 to look like this

A1 10 1249 A2 13 1232 A3 21 2312 . . .
A1 402 12212 A2 432 23323 A3 442 23232 . . . .
.
.
.

How do I write a macro for this? I recorded it using the recorder, and it works only for the first couple of values...

 

[Redwolfx]

Where it says

If Left(MyCell.Value, 3) = "A1" Then


Change to
If Left(MyCell.Value, 2) = "A1" Then

 

[vidyashankara]

I did that, and it still does the same thing... It was initially "A1 ", i change to "A1" and 2 characters and same result...

 

[vidyashankara]

Ah! I got it, i changed Col +2 to Col +1 and that fixed everything thanks a ton!!! You are a superstar!!


.Cells(LastRow2, Col + 0).Value = MyCell(1, 2).Value
.Cells(LastRow2, Col + 1).Value = MyCell(1, 3).Value