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
Bookmarks