Greetings all I am pretty much new here and have been trying to build something helpful for myself at work. I got everything working apart from a few tiny bits I can't get my head around. If someone could help I would be super grateful. So basically I have built an Item Manager in excel for our small warehouse and can't get an audit trial to do what I want from it which is to reference an item code and GRN to every change. When a change occurs audit gives me a user name, computer name, cell address where change occurred, value before and after the change as well as date and time and sheet name. For every change I need VBA to be able to reference "item code" and "GRN" from the row that change occurred. This is what I have so far and if anyone can help thank you in advance.

Dim PreviousValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Errb As Integer
On Error GoTo ErrTrap:
If Target.Value <> PreviousValue Then
With Sheets("AuditLog").Cells(65000, 1).End(xlUp)
.Offset(1, 0).Value = Application.UserName
.Offset(1, 1).Value = Environ$("computername")
.Offset(1, 2).Value = "changed cell"
.Offset(1, 3).Value = Target.Address
.Offset(1, 4).Value = "To list referance to item code from column C"
.Offset(1, 5).Value = "To list referance to GRN from column B"
.Offset(1, 6).Value = PreviousValue
.Offset(1, 7).Value = Target.Value
.Offset(1, 8).Value = Now()
.Offset(1, 9).Value = ActiveSheet.Name
End With
End If
Exit Sub
ErrTrap:
ErrNum = Err

If ErrNum = 13 Then
'*** Multiple cells have been selected, treat them as one merged group*****
Resume Next
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub