[gr8styl]

Φίλε Γιάννη,
κατ'αρχή καλώς όρισες στην παρέα μας.

Αν και η λύση μου είναι παρόμοια με αυτή του Γιώργου, μιας και την ετοίμασα την ανεβάζω.

ο παρακάτω κώδικα σου επιτρέπει να επιλέξεις τόσο την προέλευση (sRange) όσο και το κελί προορισμού.

Προσάρμοσέ το ανάλογα πχ άλλαξε το ThisWorkbook.Sheets(1).Range("C3:I72").Address να ορίσζει την προτιμόμενη περιοχή προέλευσης.

Φιλικά
Θανάσης

Sub Copy_sRange_to_Dest()
Dim sRange As Range
Dim Dest As Range

On Error Resume Next
Set sRange = Application.InputBox("Select source range", _
    "Select Source", ThisWorkbook.Sheets(1).Range("C3:I72").Address, , , , , 8)
Set Dest = Application.InputBox("Select destination cell", _
    "Select Destination", , , , , , 8)
On Error GoTo 0

    If sRange Is Nothing Or Dest Is Nothing Then
            MsgBox "Inavlid Range"
            Exit Sub
    Else
        If Dest.Rows.Count <> 1 Or Dest.Columns.Count <> 1 Then
            MsgBox "Destination must be a single cell"
            Exit Sub
        Else
            If MsgBox("Copy from " & sRange.Address & " to " & Dest.Address, vbOKCancel) = vbOK Then
                sRange.Copy Destination:=Dest
            End If
        End If
    End If
End Sub

ΥΓ. Γιώργο το δουλεύαμε παράλληλα