title: Extending macro from 1 row to 56 rows. Application defined error
body: <p>Ihave never done Excel VBA macros.</p>
  
  <p>The data I’m trying to get organized into a single column is in excel rows 22-78.</p>
  
  <pre><code>    0   0.04    0.08    0.12    0.16    0.2 0.24    0.28    0.32    0.36    0.4 0.44    0.48    0.52    0.56    0.6 0.64    0.68    0.72    0.76    0.8 0.84    0.88    0.92    0.96    1   1.04    1.08    1.12    1.16    1.2 1.24    1.28    1.32    1.36    1.4 1.44    1.48    1.52    1.56    1.6 1.64    1.68    1.72    1.76    1.8 1.84    1.88    1.92    1.96    2   2.04    2.08    2.12    2.16    2.2 2.24    2.28    2.32    2.36    2.4 2.44    2.48    2.52    2.56    2.6 2.64    2.68    2.72    2.76    2.8 2.84    2.88    2.92    2.96    3   3.04    3.08    3.12    3.16    3.2 3.24    3.28    3.32    3.36    3.4 3.44    3.48    3.52    3.56    3.6 3.64    3.68    3.72    3.76    3.8 3.84    3.88    3.92    3.96    4   4.04    4.08    4.12    4.16    4.2 4.24    4.28    4.32    4.36    4.4 4.44    4.48    4.52    4.56    4.6 4.64    4.68    4.72    4.76    4.8 4.84    4.88    4.92    4.96    5   5.04    5.08    5.12    5.16    5.2 5.24    5.28    5.32    5.36    5.4 5.44    5.48    5.52    5.56    5.6 5.64    5.68    5.72    5.76    5.8 5.84    5.88    5.92    5.96    6   6.04    6.08    6.12    6.16    6.2 6.24    6.28    6.32    6.36    6.4 6.44    6.48    6.52    6.56    6.6 6.64    6.68    6.72    6.76    6.8 6.84    6.88    6.92    6.96    7   7.04    7.08    7.12    7.16    7.2 7.24    7.28    7.32    7.36    7.4 7.44    7.48    7.52    7.56    7.6 7.64    7.68    7.72    7.76    7.8 7.84    7.88    7.92    7.96    8   8.04    8.08    8.12    8.16    8.2 8.24    8.28    8.32    8.36    8.4 8.44    8.48    8.52    8.56    8.6 8.64    8.68    8.72    8.76    8.8 8.84    8.88    8.92    8.96    9   9.04    9.08    9.12    9.16    9.2 9.24    9.28    9.32    9.36    9.4 9.44    9.48    9.52    9.56    9.6 9.64    9.68    9.72    9.76    9.8 9.84    9.88    9.92    9.96    10  10.04   10.08   10.12   10.16   10.2    10.24   10.28   10.32   10.36   10.4    10.44   10.48   10.52   10.56   10.6    10.64   10.68   10.72   10.76   10.8    10.84   10.88   10.92   10.96   11  11.04   11.08   11.12   11.16   11.2    11.24   11.28   11.32   11.36   11.4    11.44   11.48   11.52   11.56   11.6    11.64   11.68   11.72   11.76   11.8    11.84   11.88   11.92   11.96   12  12.04   12.08   12.12   12.16   12.2    12.24   12.28   12.32   12.36   12.4    12.44   12.48   12.52   12.56   12.6    12.64   12.68   12.72   12.76   12.8    12.84   12.88   12.92   12.96   13  13.04   13.08   13.12   13.16   13.2    13.24   13.28   13.32   13.36   13.4    13.44   13.48   13.52   13.56   13.6    13.64   13.68   13.72   13.76   13.8    13.84   13.88   13.92   13.96   14  14.04   14.08   14.12   14.16   14.2    14.24   14.28   14.32   14.36   14.4    14.44   14.48   14.52   14.56   14.6    14.64   14.68   14.72   14.76   14.8    14.84   14.88   14.92   14.96   15  15.04   15.08   15.12   15.16   15.2    15.24   15.28   15.32   
  </code></pre>
  
  <p>This is the data in one row. And such I have from row 22-78. the final files have a similar number of columns but many more rows. 
  I am not sure what would be a good way to organize this into a single column in excel </p>
  
  <p>I got this working for 1 row. 
  here's the code </p>
  
  <pre><code>Sub RowsToColumn()
     Dim RN As Range
     Dim RI As Range
     Dim r As Long
     Dim LR As Long
     Application.ScreenUpdating = False
     Columns(1).Insert
     r = 0
  
     LR = Range("A" &amp; Rows.Count).End(xlUp).row
     For Each RN In Range("A1:A" &amp; LR)
         r = r + 1
         For Each RI In Range(RN, Range("XFD" &amp; RN.row).End(xlToLeft))
             r = r + 1
             Cells(r, 1) = RI
             RI.Clear
         Next RI
     Next RN
     Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
  End Sub
  </code></pre>
  
  <p>But to extend this for Rows A22-78</p>
  
  <pre><code>Sub RowsToColumn_Second()
     Dim RN As Range
     Dim RI As Range
     Dim r As Long
     Dim LR As Long
     Dim row As Range
     Dim rng As Range
     Dim cell As Range
  
     Application.ScreenUpdating = False
     Set rng = Range("A22:A78")
     For Each row In rng.Rows
        Columns(1, rng).Insert
     r = 0
     LR = Range("A" &amp; Rows.Count).End(xlUp).row
     LR = Range("A" &amp; Rows.Count).End(xlUp).row
     For Each RN In Range("A1:A" &amp; LR)
         r = r + 1
         For Each RI In Range(RN, Range("XFD" &amp; RN.row).End(xlToLeft))
             r = r + 1
             Cells(r, 1) = RI
             RI.Clear
         Next RI
     Next RN
     Next row
     Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
  End Sub
  </code></pre>
  
  <p>This is where it saysApplication defined error-1004. It doesn't like Columns(1, rng).Insert</p>