VBA Code:
Sub SelectionbyBox()
Sheets("Sheet1").Activate
Dim myRange As Range
On Error GoTo inputerror
Set myRange = Application.InputBox(Prompt:= _
"Select Range", _
Title:="Range Selection", Type:=8)
If myRange Is Nothing Then Exit Sub
Else
myRange.Select
End If
Selection.Copy
Range("D12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
inputerror:
MsgBox "Please select Any Cell"
End Sub
It is Possible to force inputbox to Select range only in column A or set other column to not selectable or any formula to end code if range selection is not in column A