Can you simplify this formula for vba? Sub Test() Dim LastRow As Long Dim i As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To LastRow If Range("A" & i).Value = "CANCELLED" Then Range("N" & i).Value = "," & Range("N" & i).Value Range("O" & i).Value = "," & Range("O" & i).Value Range("P" & i).Value = "," & Range("P" & i).Value Range("Q" & i).Value = "," & Range("Q" & i).Value Range("R" & i).Value = "," & Range("R" & i).Value End If Next i End Sub And skip if blank.
Solved by M. E. in 16 mins