Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns(2)) Is Nothing Then
If Target.Value <> "" Then
Call Macro5
Range(Cells(Target.Row - 1, 4), Cells(Target.Row - 1, 8)).Copy Cells(Target.Row, 4)
Cells(Target.Row, 4).ClearContents
End If
End If
End Sub