[Solved] Transposing specific number of rows in a column
Sub CopyToRange() Dim vDB, vR() Dim rngDB As Range Dim Cnt As Long, i As Long, j As Integer Dim n As Long Set rngDB = Range(“a1”, Range(“a” & Rows.Count).End(xlUp)) vDB = rngDB Cnt = 272 For i = 1 To UBound(vDB, 1) Step Cnt n = n + 1 ReDim Preserve vR(1 To Cnt, … Read more