Sub RangetoColumn()


    Dim CurrentSheet As Worksheet

    Dim i As Long, j As Long, Count As Long

    Count = 1
    For j = 1 To 100
         For i = 1 To 5
            Sheet1.Cells(Count, 7).Value = Sheet1.Cells(j, i).Value
            Count = Count + 1
        Next i
    Next j
End Sub