Private Sub Worksheet_Change(ByVal Target As Range)
' See if cell G8 was updated
If Not Intersect(Target, Range("G8")) Is Nothing Then
' See if cell G8 was set to "X"
If Range("G8") = "X" Then
' Populate other cells with values of cell G8
Application.EnableEvents = False
Range("K8,O8,S8,W8,AA8").Value = Range("G8").Value
Application.EnableEvents = True
End If
End If
End Sub