Is this what you mean
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r      As Long
    Application.EnableEvents = False
    If Not Intersect(Target, Range("H2:H2000")) Is Nothing And _
        Target.Columns.Count < Columns.Count Then
        On Error Resume Next
        For Each cell In Intersect(Target, Range("H2:H2000"))
            cell.Offset(0, -2) = Format(Now, "HH:MM AM/PM")
            cell.Offset(0, -3) = Format(Date, "MM/DD/YY")
        Next cell
    End If
    If Target.Columns.Count = Columns.Count Then
        For r = 1 To Target.Rows.Count
            Cells(Target(1).Row - 1, 3).Copy Cells(Target(1).Row + r - 1, 3)
            Cells(Target(1).Row - 1, 4).Copy Cells(Target(1).Row + r - 1, 4)
            Cells(Target(1).Row - 1, 9).Copy Cells(Target(1).Row + r - 1, 9)
            Cells(Target(1).Row - 1, 10).Copy Cells(Target(1).Row + r - 1, 10)
            Cells(Target(1).Row - 1, 11).Copy Cells(Target(1).Row + r - 1, 11)
        Next r
    End If
    Application.EnableEvents = True
End Sub