duplicate rows

[JAWS1]

I have had this question before and the macro does not work any more any suggestions the top half is single and the bottom half is where I want to get to.
[TABLE="width: 374"]
<colgroup><col span="2"><col><col><col><col><col></colgroup><tbody>[TR]
[TD="align: right"][TABLE="width: 567"]
<colgroup><col span="2"><col><col><col><col><col></colgroup><tbody>[TR]
[TD="align: right"]25[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]BIBBY[/TD]
[TD]JAMES[/TD]
[TD]ROSCOE[/TD]
[TD]SARAH[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]DURNING ?[/TD]
[TD]JAMES[/TD]
[TD]CARBERRY[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]HANRATTY[/TD]
[TD]OWEN[/TD]
[TD]HANRATTY[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]McGOWAN[/TD]
[TD]THOMAS[/TD]
[TD]HALLIGAN[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]1859[/TD]
[TD]METCALF[/TD]
[TD]JOSEPH[/TD]
[TD]LOFTUS[/TD]
[TD]MARY[/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]1859[/TD]
[TD]MALADY[/TD]
[TD]MATTHEW[/TD]
[TD]DEAKIN[/TD]
[TD]ELIZABETH[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"]25[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]BIBBY[/TD]
[TD]JAMES[/TD]
[TD]ROSCOE[/TD]
[TD]SARAH[/TD]
[/TR]
[TR]
[TD="align: right"]25[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]ROSCOE[/TD]
[TD]SARAH[/TD]
[TD]BIBBY[/TD]
[TD]JAMES[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]DURNING [/TD]
[TD]JAMES[/TD]
[TD]CARBERRY[/TD]
[TD]ANN[/TD]
[/TR]
[TR]
[TD="align: right"]26[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]1859[/TD]
[TD]CARBERRY[/TD]
[TD]ANN[/TD]
[TD]DURNING [/TD]
[TD]JAMES[/TD]
[/TR]
</tbody>[/TABLE]
<strike></strike>
[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[JAWS1]

I can see why the previous suggestions were not working this new data has a pair side by side whereas the last one was a single entry

 

[MickG]

Try this :- Your data start "A1", Results start "I1".

[COLOR="Navy"]Sub[/COLOR] MG02Jun23
[COLOR="Navy"]Dim[/COLOR] Ray [COLOR="Navy"]As[/COLOR] Variant, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Ac [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Col [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Ray = Range("A1").CurrentRegion
ReDim nRay(1 To UBound(Ray, 1) * 2, 1 To UBound(Ray, 2))
[COLOR="Navy"]For[/COLOR] n = 1 To UBound(Ray, 1)
   c = c + 1
  [COLOR="Navy"]For[/COLOR] Ac = 1 To UBound(Ray, 2)
     nRay(c, Ac) = Ray(n, Ac)
     [COLOR="Navy"]Next[/COLOR] Ac
      c = c + 1
      [COLOR="Navy"]For[/COLOR] Ac = 1 To UBound(Ray, 2)
        [COLOR="Navy"]Select[/COLOR] [COLOR="Navy"]Case[/COLOR] Ac
            [COLOR="Navy"]Case[/COLOR] 4: Col = 6
            [COLOR="Navy"]Case[/COLOR] 5: Col = 7
            [COLOR="Navy"]Case[/COLOR] 6: Col = 4
            [COLOR="Navy"]Case[/COLOR] 7: Col = 5
        [COLOR="Navy"]Case[/COLOR] Else: Col = Ac
        [COLOR="Navy"]End[/COLOR] Select
     nRay(c, Ac) = Ray(n, Col)
   [COLOR="Navy"]Next[/COLOR] Ac
[COLOR="Navy"]Next[/COLOR] n
Range("I1").Resize(c, UBound(Ray, 2)).Value = nRay
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[JAWS1]

Thank you thank you thank you works a treat saved me a lot of copy and paste .

 

[MickG]

Your welcome