Private Sub Worksheet_Change(ByVal Target As Range)
Dim strAddress As String
Dim val
Dim dtmTime As Date
Dim Rw As Long
Dim x As String

Sheets("Shipment").Select

If Intersect(Target, Range("D3:D200,K3:K200")) Is Nothing Then Exit Sub

dtmTime = Now()
val = Target.Value
strAddress = Target.Address
x = Cells(2, Target.Column).Value

Rw = Sheets("Log Sheet").Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("Log Sheet")
    .Cells(Rw, 1) = strAddress
    .Cells(Rw, 2) = val
    .Cells(Rw, 3) = dtmTime
    .Cells(Rw, 4) = x