In the A Column I would like the date to be entered as well?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Address = "$E$162" Then
With Sheets("ChequesOut")
If .[C1] = "" Then
Union([B162], [E162]).Copy .[C1]
Else
Union([B162], [E162]).Copy .Range("C" & Rows.Count). _
End(xlUp)(2)
End If
[B162].Select
End With
End If
End Sub


Thanks in advance.........Bob Vance