I have a very large data block (~20,000 rows, single column). I would like to copy every 100th cell over to the next column without any spaces between them (i.e. the end result would be ~200 values with no spaces in-between).
Dim iStart As Long
Dim i As Long
iStart = Val(InputBox("Please type the number of the first row"))
i = 1
Cells(i, 2) = Cells(iStart, 1)
i = i + 1
iStart = iStart + 100
Loop Until Cells(iStart, 1) = ""