Worksheet_BeforeDoubleClick > Copia range di cele

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
        If Not Intersect(Target, Range("B9:b30")) Is Nothing Then
            Range("f9:g9").ClearContents
            Sheets(Target.Value).Range("b3").Copy Destination:=Range("f9")
            Sheets(Target.Value).Range("b4").Copy Destination:=Range("g9")
            
            'Cells(1, 4) = Target.Value ' In nome del Foglio attivo
         End If
            Application.CutCopyMode = False
            Cancel = True
            Application.EnableEvents = True
            Application.ScreenUpdating = True
            
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim riga As Long
    On Error GoTo errori
    Application.ScreenUpdating = False
    Application.EnableEvents = False
        If Not Intersect(Target, Range("B9:b30")) Is Nothing Then
            riga = Target.Row
            Range("f" & riga & ":g" & riga).ClearContents
            Sheets(Target.Value).Range("b3").Copy Destination:=Range("f" & riga)
            Sheets(Target.Value).Range("b4").Copy Destination:=Range("g" & riga)
            
            'Cells(1, 4) = Target.Value ' In nome del Foglio attivo
         End If
            Application.CutCopyMode = False
errori:
        Cancel = True
        Application.EnableEvents = True
        Application.ScreenUpdating = True
            
End Sub