```
Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
End With
Dim WS As Worksheet
Dim LastRow As Long
Dim I As Long
'Set ws = ThisWorkbook.Sheets("ISSUE LOG")
Set WS = Sheets("ISSUE LOG")
' get the last row from column A that has a value
LastRow = WS.Range("C" & WS.Rows.Count).End(xlUp).Row
If LastRow < Target.Row Then LastRow = Target.Row
' use the last row to determine how far down to extend the formula
' ws.Range("A9:A" & lastRow).Formula = "=row()"
If Not Intersect(Target, WS.Columns(3)) Is Nothing Then
WS.Range("A9:A" & LastRow).Formula = "=IF(C9<>"""",COUNTA($C$9:C9)&""."","""")"
WS.Range("H9:H" & LastRow).Formula = "=$C$4"
End If
If Not Intersect(Target, WS.Columns(2)) Is Nothing Then
If Target <> "" Then
WS.Cells(Target.Row, 6) = WS.Range("N2")
Else
WS.Cells(Target.Row, 6) = ""
End If
End If
For I = 9 To LastRow
If WS.Range("C" & I).Value <> "" Then
WS.Range("H" & I).Value = WS.Range("C4") & Chr(10) & WS.Range("C5") & Chr(10) & WS.Range("C6") & " " & WS.Range("E6")
WS.Range("H" & I).RowHeight = 71
Else
WS.Range("H" & I).Value = ""
WS.Range("H" & I).RowHeight = 15
End If
Next I
With Application
.EnableEvents = True
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
```