Recording Multiple Cell Values

Say i wanted to track the changes in a cell, i.e. if a number changes in a cell it records the new number in a new column. The following macro achieves this for one value; say type a value in a15, it records the number changes in column D;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DestCell As Range
With Target
If .Cells.Count > 1 Then Exit Sub
If Intersect(.Cells, Me.Range("a15")) Is Nothing Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If IsError(.Value) Then Exit Sub

[code]...

But what if need to track the value of 4 cell changes in different columns, and record these values into different colums of their own? So for example, if i had a value in a1, and wanted to paste the changes into D; if i had a value in a2, and wanted to paste the changes into E; if i had a value in b7, and wanted to paste/record the changes into F etc etc.

I thought about running the macro for each cell but it wont work, for example i tried;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DestCell As Range
With Target
If .Cells.Count > 1 Then Exit Sub
If Intersect(.Cells, Me.Range("a1")) Is Nothing Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If IsError(.Value) Then Exit Sub

[code]...