VBA Loop from a list to comulms

[Summerso1]

I I'm looking for a VBA loop that goes down column A and copies the first 7 cells to column C and then the next seven cells from column A to column D and so on. Basically what I'm trying to do is i have a list of data but i want to put them into column rows so they represent weeks.

Thanks for the help!!

 

[WarPigl3t]

So A1:A7 you want pasted to D1:D7?

 

[Summerso1]

Yes and then A8:14 to E1:E7 and so on, thank you!!

 

[TMShucks]

Option Explicit


Sub sMakeWeeks()


Dim vDataIn, vDataOut
Dim i As Long, j As Long, k As Long


vDataIn = Range("A1", Range("A" & Rows.Count).End(xlUp))


ReDim vDataOut(1 To 7, 1 To Application.WorksheetFunction.RoundUp(UBound(vDataIn) / 7, 0))


j = 0: k = 1


For i = LBound(vDataIn) To UBound(vDataIn)
    j = j + 1
    If j > 7 Then
        j = 1
        k = k + 1
    End If
    vDataOut(j, k) = vDataIn(i, 1)
Next 'i


Range("C1").Resize(7, Application.WorksheetFunction.RoundUp(UBound(vDataIn) / 7, 0)) = _
    vDataOut


End Sub