指定範囲をクリップボードにコピー

Visual Basic for Applications
Sub Macro()
  Dim Sheet As Integer
  Dim srrr As Integer
  Dim sccc As Integer
  Dim EndRow As Integer
  Dim EndCol As Integer
  Dim DataSet As Range
  Dim MSG As String
  MSG = "基点行"
  srrr = InputBox(MSG)
  MSG = "基点列"
  sccc = InputBox(MSG)
  Sheet = 1
  EndRow = Worksheets(Sheet).Cells(srrr, sccc).End(xlDown).Row
  EndCol = Worksheets(Sheet).Cells(srrr, sccc).End(xlToRight).Column
  Set DataSet = Range(Cells(srrr, sccc), Cells(EndRow, EndCol))
  DataSet.Select
  Selection.Copy
End Sub