If it's helpful here is the whole code
Sub PO_Not_Placed()
Application.EnableEvents = False
Dim ws1 As Worksheet: Set ws1 = Sheets("Report Center")
Dim RC_LR As Long
Dim PO_LR As Long
Dim rCell As Long
Sheets("Report Center").Select
With Sheets("Pending Orders")
For rCell = 5 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & rCell) <> "" And .Range("L" & rCell) = "" Then 'I WOULD LIKE FOR THIS ARGUMENT TO WORK ONLY FOR ODD ROWS
With Union(.Range("A" & rCell), .Range("C" & rCell))
.Copy
ws1.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlFormats
ws1.Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
ActiveSheet.Paste
Application.CutCopyMode = False
With Sheets("Report Center").Range("A:AO")
.FormatConditions.Delete
End With
End With
End If
Next rCell
End With
Application.EnableEvents = True
End Sub
Bookmarks