title: Copy column cell data using RefEdit Userform
body: <p>I'm trying to copy masses of information from one spreadsheet to another to make it easier to print out on one piece of paper. All the data is set out in sequence and in columns and they need to be printed as such. </p>
  
  <p>I'm trying to create a userform to speed this up by copying different column ranges and pasting them in to another spreadsheet in the exact same format but in columns of 50 cells and a maximum of 4 columns per sheet of paper.</p>
  
  <p>This is what I've got so far, but it only copies the first cell:</p>
  
  <pre><code>Private Sub UserForm_Click()
  
  
      UserForm1.RefEdit1.Text = Selection.Address
  
  
  End Sub
  Private Sub CommandButton1_Click()
  
      Dim addr As String, rng
      Dim tgtWb As Workbook
      Dim tgtWs As Worksheet
      Dim icol As Long
      Dim irow As Long
  
  
      Set tgtWb = ThisWorkbook
      Set tgtWs = tgtWb.Sheets("Sheet1")
  
      addr = RefEdit1.Value
      Set rng = Range(addr)
  
  
      icol = tgtWs.Cells(Rows.Count, 1) _
      .End(xlUp).Offset(0, 0).Column
  
  
  
      tgtWs.Cells(1, icol).Value = rng.Value
  
  
  End Sub
  </code></pre>
  
  <p>Any help would be greatly appreciated.</p>