Copy a selected range to another worksheet
<p>I am using code below which I am trying to change so as not to use .select</p>

<pre><code>Selection.Select ' from active worksheet
    Selection.Copy
    Sheets("Purch Req").Select
    Range("A1").Select
    ActiveSheet.Paste
</code></pre>

<p>I have tried using this but there is no output to the other worksheet.</p>

<pre><code>Dim src2Range As Range, dest2Range As Range

    Set src2Range = Selection 'source from selected range

    Set dest2Range = Sheets("Purch Req").Range("A1").Resize(src2Range.Rows.Count, src2Range.Columns.Count) ' destination range _
    'in Purch req worksheet
</code></pre>