Data reduction macro

Hey everyone,
So I'm trying to reduce some data from every second to every minute. I was able to use this macro that i found on here but when it runs it inputs all the data to one column which i cant use to plot since each is a different sensor.

Sub snb()
Do
y = InputBox("number")
Loop Until Val(y) <> 0 Or y = ""
If y = "" Then Exit Sub

Open "Q:\xxx.lvm" For Input As 1
sn = Split(Input(LOF(1), 1), vbCrLf)
Close

For j = 0 To UBound(sn) Step y
c01 = c01 & "|" & sn(j)
Next
sq = Split(Mid(c01, 2), "|")
Cells(1).Resize(UBound(sq) + 1) = Application.Transpose(sq)
Columns(1).TextToColumns , , , , False, False, False, True, False
End Sub