title: How to paste in VBA having issues
body: <p>I am having trouble pasting.</p>
  
  <p>I have written the code but when it gets to cell and selects it I have tried putting paste in but still does not work.</p>
  
  <p>Code below, the starred bit is the issue</p>
  
  <pre><code>Sheets("Data").Select
  If Range("A2") = "" Then
    Range("A1").Paste
  Else
    Selection.End(xlDown).Select
    ActiveCell. Offset(0, 1).Select
    With Range("A" &amp; Rows.Count).End(xlUp).Offset(1)
    End With
    ActiveSheet.Range("$D$1:$D$50000").AutoFilter Field:=6, Criteria1:="B"
    lastrow = Range("D" &amp; Rows.Count).End(xlUp).Row
    Range("D:M").SpecialCells(xlCellTypeVisible).Select
    Set Rng = ActiveSheet.AutoFilter.Range
    Windows("Pull Back Scans.xlsm").Activate
    Sheets("Data").Select
    If Range("A2") = "" Then
      Range("A1").Paste
    Else
      Selection.End(xlDown).Select
      ActiveCell.Offset(0, 1).Select
      With Range("A" &amp; Rows.Count).End(xlUp).Offset(1)
      End With
      **ActiveSheet.PasteSpecial**
      Columns("A:J").Select
      Columns("A:J").EntireColumn.AutoFit
      Windows("Belfast CDC Scans.xlsb").Activate
      ActiveWorkbook.Close savechanges:=False
    End If
    Columns("A:J").Select
    Columns("A:J").EntireColumn.AutoFit
    Windows("Belfast CDC Scans.xlsb").Activate
    ActiveWorkbook.Close savechanges:=False
  End If
  </code></pre>