Ideas on VBA method to copy/paste date

[MOB]

I have data in columns N to S - starts at row 4 and can go down to row 1000 (number of rows can vary)

I want to;

- copy columns N to O plus column P to a new tab
- copy columns N to O plus Q underneath that data
- copy columns N to O plus R underneath that data
- copy columns N to O plus S underneath that data

Thus creating one longer list, 4 times the length of the original list. But only 3 columns wide instead of the original 6

Struggling to get my head round how to tackle this!

Any help would be great.

 

[Fluff]

How about

Sub CopyData()

   Dim UsdRws As Long
   
   UsdRws = Range("N" & Rows.Count).End(xlUp).Row
   With Sheets("Sheet1")
      Range("N4:O" & UsdRws).Copy .Range("A1").Resize((UsdRws - 3) * 4)
      Range("P4:P" & UsdRws).Copy .Range("C1")
      Range("Q4:Q" & UsdRws).Copy .Range("C" & Rows.Count).End(xlUp).Offset(1)
      Range("R4:R" & UsdRws).Copy .Range("C" & Rows.Count).End(xlUp).Offset(1)
      Range("S4:S" & UsdRws).Copy .Range("C" & Rows.Count).End(xlUp).Offset(1)
   End With
End Sub