VBA Store Current Selection As Range

Dim TempRange As Range
    Sheets("LoanInputs").Range("O5").Resize(Range("LoanCount").Value, 1).Copy
    Range("AA1").Select
    ActiveSheet.Paste
    Set TempRange = Selection
    TempRange.Copy
    Range("AB2").Select
    ActiveSheet.Paste