copia incolla cella vba

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim riga   As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("I21:I33")) Is Nothing And Target = "T" Then
        riga = Target.Row - 16
        Application.EnableEvents = False
        Range(Range("F" & Target.Row), Range("I" & Target.Row)).Copy
        Range("F" & riga).PasteSpecial xlPasteAll
        'Range("F" & Target.Row & ":H" & Target.Row) = Range("F" & riga & ":H" & riga).Value
        Application.EnableEvents = True
    End If
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim riga As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("I5:I13", "I21:I33")) Is Nothing And Target = "T" Then
        Select Case Target.Row
            Case 5 To 13
                riga = Target.Row + 16
            Case 21 To 33
                riga = Target.Row - 16
        End Select
        Application.EnableEvents = False
        Range(Range("F" & Target.Row), Range("H" & Target.Row)).Copy
        Range("F" & riga).PasteSpecial xlPasteAll
        Application.EnableEvents = True
    End If
End Sub