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