Doppio click su di una cella di una specifica colonna: seleziona il range adiacente, coloralo, incollalo in un altro foglio

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
Dim ur As Long
Dim sh As Worksheet
Select Case Right(Target.Value, 1)
     Case Is = 1
     Set sh = Foglio2
     Case Is = 2
     Set sh = Foglio3
     Case Is = 3
     Set sh = Foglio4
End Select
ur = sh.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 7
    sh.Cells(ur + 1, i).Value = Target.Offset(0, i).Value
Next i
Cancel = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Dim rng As Range, cl As Range
'Set rng = Range("A7:A10000")
'For Each cl In rng.Cells
'If Target.Address = cl.Address And Target = "SOLUZIONE1" Then MACROTEST
'If Target.Address = cl.Address And Target = "SOLUZIONE2" Then MACROTEST2
'If Target.Address = cl.Address And Target = "SOLUZIONE3" Then MACROTEST3
'Next

If Not Intersect(Target, Range("A7:A10000")) Is Nothing Then
  If Target <> "" Then
    sh = Right(Target, 1)
    Range(Cells(Target.Row, 2), Cells(Target.Row, 8)).Copy
    rg = Sheets("TEST" & sh).Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("TEST" & sh).Cells(rg, 1).PasteSpecial Paste:=xlPasteAll
  End If
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A7:A10000")) Is Nothing Then
  If Target <> "" Then
    sh = Right(Target, 1)
    Range(Cells(Target.Row, 2), Cells(Target.Row, 8)).Interior.ColorIndex = 15
    Range(Cells(Target.Row, 2), Cells(Target.Row, 8)).Copy
    rg = Sheets("TEST" & sh).Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("TEST" & sh).Cells(rg, 1).PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
  End If
End If
Cancel = True
End Sub