If newVal = "Completed" Or newVal = "" Then
If Not Intersect(target, Range("D9:D62, G9:G62, K9:K62,O9:O62, R9:R62, V9:V62, Y9:Y62, AC9:AC62, AF9:AF62, AJ9:AJ62, AM9:AM62")) Is Nothing Then target.Offset(, 1) = UBound(Split(oldVal, ", "), 1) + 1
If Not Intersect(target, Range("AM9:AM62")) Is Nothing Then 'if it's intersecting with pack column
roww = target.Row
Range("B" & roww & ", C" & roww & ", E" & roww & ", F" & roww & ", H" & roww & ", I" & roww & ", J" & roww & ", L" & roww & ", M" & roww & _
", N" & roww & ", P" & roww & ", Q" & roww & ", S" & roww & ", T" & roww & ", U" & roww & ", W" & roww & ", X" & roww & ", Z" & roww & _
", AA" & roww & ", AB" & roww & ", AD" & roww & ", AE" & roww & ", AH" & roww & ", AI" & roww & ", AK" & roww & ", AL" & roww & ", AN" & roww & _
", AO" & roww & ", AP" & roww).Copy
With Sheets("Data")
Set NextRow = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0)
End With
NextRow.PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Set NextRow = Nothing
Sheets("Swimlane").Activate
Range("B" & roww & ", C" & roww & ", D" & roww & ", E" & roww & ", G" & roww & ", H" & roww & ", J" & roww & ", K" & roww & ", M" & roww & _
", O" & roww & ", P" & roww & ", R" & roww & ", T" & roww & ", U" & roww & ", W" & roww & ", Y" & roww & ", Z" & roww & ", AB" & roww & _
", AD" & roww & ", AE" & roww).Value = ""
End If
Thank you,
Bookmarks