Excel VBA中如何在range中获取当前所选区域？

我已经通过下面的sub 选择（）获得单元格了，但是用什么代码才能在在这个单元格粘贴？

Sub 删除对象删除行列取消合并()
Application.Calculation = xlCalculationAutomati
    Dim oWK As Worksheet
    Dim oSP As Shape
    '遍历所有工作表
    For Each oWK In Excel.ThisWorkbook.Sheets
        '遍历所有图形对象
        For Each oSP In oWK.Shapes
            oSP.Delete
        Next
         Columns("C:F").Select
         Selection.Delete Shift:=xlToLeft
         Next
         Columns("A:A").Select
         Selection.Delete Shift:=xlToLeft
    Rows("1:1").Select
    Selection.Delete Shift:=xlToLeft
    Range("A:A").UnMerge
       Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
       End Sub
       Sub 剪切()
       Range("A1:A100").Select
       Selection.Cut
End Sub
        Sub 选择()
        Call Worksheets("Sheet5").Select
        For Each cell In Sheet5.Columns(5).Cells
    If IsEmpty(cell) = True Then cell.Select: Exit For
    Next
    End Sub
    Sub 粘贴()
   如何引用上面sub 选择（）中选额的单元格并粘贴

End Sub