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

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