Okay, for the macro one more thing, I tried applying to three columns of data, and it generally works, but on the 2nd set of data it overwrite the header. Here is the code, less the the modification above, can someone fix it?

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 = 2 To LR Step 75
.Cells(2, 2).Resize(, 2).Copy ms.Cells(3, NR)
.Cells(i, 3).Resize(75, 3).Copy ms.Cells(3, NR).Resize(75, 4)
NR = NR + 5
Next

Application.CutCopyMode = 0
Application.ScreenUpdating = True
End With
ms.Columns.AutoFit
ms.Activate
Set ms = Nothing
End Sub