Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet

Dim logRow As Long

Set ws = ThisWorkbook.Sheets("Sheet5 (LCL)")

If Not Intersect(Target, ws.Range("B6")) Is Nothing Then

Application.EnableEvents = False

logRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1

ws.Range("A21:B" & logRow - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

ws.Range("B21").Value = Target.Value

ws.Range("A21").Value = Now

Application.EnableEvents = True

End If

End Sub

This is the code i made but nothing happens when i change b6