Help with interleaving 2 columns to 1 row with blank cells

[Goliath.ro]

Hello

I am trying to cut timp spent copy pasting information with some functions macros but my knowledge in this area is extremly limited, all I did so far is from what I learned on my own

So I have 2 columns with data that I want wrinte into a row interleaved, but primary column also has spaces

so its like

   A     B
 aaaa   11
        22
 bbbb   44
        55
        66

to:
aaaa 11 22 bbbb 44 55 66

 

[MickG]

Try this, Results start "C1".

[COLOR="Navy"]Sub[/COLOR] MG26Aug36
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("B1"), Range("B" & Rows.Count).End(xlUp))
ReDim Ray(1 To Rng.Count * 2)
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
 c = c + 1
    [COLOR="Navy"]If[/COLOR] Dn.Offset(, -1) <> "" [COLOR="Navy"]Then[/COLOR]
        Ray(c) = Dn.Offset(, -1)
        c = c + 1
        Ray(c) = Dn
    [COLOR="Navy"]Else[/COLOR]
        Ray(c) = Dn
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
Range("c1").Resize(, c) = Ray
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Goliath.ro]

Thank you very much that works exceptionally well, I have adapted it to my actual rows and columns and I am so very happy right now