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.

25 9 1859 BIBBY JAMES ROSCOE SARAH 26 9 1859 DURNING ? JAMES CARBERRY ANN 26 9 1859 HANRATTY OWEN HANRATTY ANN 26 9 1859 McGOWAN THOMAS HALLIGAN ANN 1 10 1859 METCALF JOSEPH LOFTUS MARY 8 10 1859 MALADY MATTHEW DEAKIN ELIZABETH 25 9 1859 BIBBY JAMES ROSCOE SARAH 25 9 1859 ROSCOE SARAH BIBBY JAMES 26 9 1859 DURNING JAMES CARBERRY ANN 26 9 1859 CARBERRY ANN DURNING JAMES <colgroup><col span="2"><col><col><col><col><col></colgroup><tbody> </tbody> <strike></strike>

<colgroup><col span="2"><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[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