Adding data to alternate rows

[robcbaker]

My question may be pretty simple, complex, or impossible.
First I'm not very familiar with Excel
Heres my question:
I have about 300 rows of numbers in 1 column (A) on Excel 2007
Looks like:
0A08EC
0A0902
0A52A6
0A52BA
0A52D0
I need to insert the following between each number and aside from copy and pasting I have no idea how to do this:
(blank)
M
82
(blank)
(blank)
(blank)
X

Any help will be greatly appreciated thanks.

 

[Weaver]

How are you deriving the values that have to be inserted?

 

[robcbaker]

They are commands that go into a software program that I run. I'm trying to make a sheet that I can copy and paste into the software so each of the 300 accounts are so will be updated instead of me manually updating each one.

 

[Weaver]

A bit rough and ready, but if you have the numbers in column A and the values you need to insert in column B, the code should 'riffle' the data into column C

Sub riffle()
    lr = WorksheetFunction.Max( _
        Cells(Rows.Count, "A").End(xlUp).Row, _
        Cells(Rows.Count, "B").End(xlUp).Row)
    r = 1
    For i = 1 To lr
        For j = 0 To 1
            Cells(r + j, "C").Value = _
                Cells(i, j + 1).Value
        Next j
        r = r + 2
    Next i
End Sub

HTH

 

[robcbaker]

Thank you, this macro works great for what I asked for. However after rereading my question it doesn't appear to be quite clear enough (sorry) the end result I am looking for is:

COLUMNS
A B C

1 A 1
2 B A
3 C B
D C
E D
F E
G F
G
2
A
B
C
D
E
F
G
3
A
B
C
D
E
F
G

As you can see the information in Column B (A-G) will be applied after each individual cell from Column A all compiled in Column C.

 

[robcbaker]

I couldn't get the information to go in correctly should be:

Column A:
1
2
3

Column B:
A
B
C
D
E
F
G

Column C:
1
A
B
C
D
E
F
G
2
A
B
C
D
E
F
G
3
A
B
C
D
E
F
G

 

[Weaver]

Okay, try this then:

Sub newRiffle()
    Dim lrA, lrB
    lrA = Cells(Rows.Count, "A").End(xlUp).Row
    lrB = Cells(Rows.Count, "B").End(xlUp).Row
    r = 1
    For a = 1 To lrA
        Cells(r, "C").Value = Cells(a, "A").Value
        r = r + 1
        For b = 1 To lrB
            Cells(r, "C").Value = Cells(b, "B").Value
            r = r + 1
        Next b
    Next a
End Sub

 

[robcbaker]

WOW!!!
Your a genius, you have no idea how much time this saves me thank you so much for your help on this.....Holy cow I still cant believe it.

 

[Weaver]

Don't mention it - it's all good practice!

 

[robcbaker]

The last macro worked great, I tried to use it for another worksheet but it doesn't like it I think it is because there are more rows in column B now I tried to figure it out but couldn't can you let me know how to make this work please thank you so much.
Column A:
1
2

Column B:
A
B
C
D
E
F
G
H
I
J
K

Column C:
1
A
B
C
D
E
F
G
H
I
J
K
2
A
B
C
D
E
F
G
H
I
J
K
(etc.)