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

Try this one

Sub columnstocol()
 Dim i As Long, ms As Worksheet, LR&
 
  Application.ScreenUpdating = 0
  
  Set ms = Sheets("FRL Summary Sheet")
  NR = 2
  With Sheets("FRL Input")
  
    LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    
    For i = 3 To LR Step 75
         .Cells(2, 3).Resize(, 3).Copy ms.Cells(3, NR)
         .Cells(i, 3).Resize(75, 3).Copy ms.Cells(4, NR).Resize(75, 3)
          NR = NR + 4
    Next
    
    Application.CutCopyMode = 0
    Application.ScreenUpdating = True
  End With
     ms.Columns.AutoFit
     ms.Activate
    Set ms = Nothing
End Sub