Я хочу сделать Изменить указанный диапазон в коде VBA

Question

У меня есть кодирование VBA, где выбран диапазон D4: D8, но я хочу получить диапазон D4: I4 вместо D4: D8.

код указан ниже

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim r As Range

    If Target.Column = 1 And Target.Row > 4 Then
        Set r = Target.Offset(-4, 3).Resize(5)
        Worksheets("ADP").Range(r.Address).Value = r.Value
    End If

End Sub

любая помощь будет высоко оценена словом благодарности.