Converting 1 set of columns to 2 sets or more: Example Attached

Amended code

Sub columnstocol()
 Dim i As Long, ms As Worksheet, LR&, RN&
 
  Application.ScreenUpdating = 0
  
  Set ms = Sheets("Sheet3")
  NR = 2
  With Sheets("Sheet1")
  RN = InputBox("how many rows do you want in the column")
    LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    For i = 3 To LR Step RN
         .Cells(2, 2).Resize(, 2).Copy ms.Cells(3, NR)
         .Cells(i, 2).Resize(RN, 2).Copy ms.Cells(4, NR).Resize(RN, 2)
          NR = NR + 3
    Next
    
    Application.CutCopyMode = 0
    Application.ScreenUpdating = True
  End With
     ms.Columns.AutoFit
     ms.Activate
    Set ms = Nothing
End Sub