Ako ti odgovara, možeš da koristiš dijalog aplikacije Application.InputBox da selektuješ oblast koju kopiraš
Code:
Dim rngSourse As Range
Set rngSource = Application.InputBox("Selektuj oblast za kopiranje:", _
"Oblast za kopiranje", Type:=8)
If (rngSource Is Nothing) = True Then Exit Sub
rngSource.Copy
…
Vidi primer
http://www.elitesecurity.org/t226697-0#1351423
Nije to loše Rembrante, samo što ne bi dodao još malo boje?