If Statement with multiple criteria + Concatenate Function

[WantToMasterExcel]

Employee ID	Fund	Property	General Expense	Expense Description	VBA Coded Needed in this Column
JK	CPCP	CORP	March Misc Exp	JK - cell phone Bill	JK - cell phone Bill
LT	CPCP	CORP	Property Visits	LT - taxi from airport to hotel	LT - taxi from airport to hotel
SN	DCUI	DCUI-Fund	SN - travel agent fee	SN - booking fee	SN DCHI DCHUI-Fund SN - travel agent fee
AN	CPCP	CORP	AN - Tours in DC	AN - airfare to Seattle	AN - airfare to Seattle
RB	DCUI	DCUI-Fund	RB - Museum Tower visit	RB - taxi from NOBE tour to hotel	RB DCUI DCUI-Fund RB - Museum Tower visit
OS	CPCP	CORP	OS - Meal - Self	OS - Lunch with Donna Gayles	OS - Lunch with Donna Gayles
TR	RCS	RCS-Fund	TR - RealShare conference registration	TR - Diverse Investor Forum	TR RCS RCS-Fund TR - Real Share conference registration
LM	DCUI	NORE	LM - data plan	LM - Personal	LM - Personal
FW	FRCA	FRCA Corp	FW - ISC conference registration	FW - Spring Conference	FW FRCA FRCA Corp FW - ISC conference registration
HT	TRSIL	Victor	Attending the Conference	HT - hotel in Houston	HT TRSIL Victor Attending the Conference
DS	GALER	Tower1	DS - Breakfast	DS - Dinner w/ VIPs	DS GALER Tower1 DS - Breakfast
Required VBA in COLUMN "F":
If the text in Column B is CPCP and the text in column C is Corp, Then Return or copy the value from Column E to Column F
If the text in Column B is DCUI and the text in column C is NORE, Then Return or copy the value from Column E to Column F
For the REST of the Value in Columns B & C, apply CONCATENATE Function(Return the value in Column "F" = Column A "Employee ID" + Column B "Fund" + Column C "Property" + Column D "General Expense"
Also, there are hundreds of ROWS in this Sheet named "Sheet1". Therefore, I need vba to perform till the end of the Last ROW

<tbody>
</tbody>

 

[WantToMasterExcel]

Sub Zacro()
Dim LR As Range

With Sheets("Sheet1")
Set LR = .Cells(.Rows.Count, "A").End(xlUp)
.Range("F2:F" & LR.Row).Formula = " = IF(OR(B2&C2 = CPCPCORP,B2&C2 = DCUINORE),E2,A2&""& B2&""&C2&""&D2))"
End With
End Sub
Now, after this macro, the macros just copies the above formula as it is(IF(OR(B2&C2 = CPCPCORP,B2&C2 = DCUINORE),E2,A2&""& B2&""&C2&""&D2))in Column F. If I put CPCPCORP and DCUINORE in inverted commas, macro gives me "Compilation error: Expected End of Statement Error". Help Needed.
Thanks

 

[MarcelBeug]

You need a VBA expert to help you.

Otherwise: if you want to include a " in a string in a macro, then you need to use chr(34):
.Range("F2:F" & LR.Row).Formula = " = IF(OR(B2&C2 = " & chr(34) & "CPCPCORP" & chr(34) & ",B2&C2 = " & chr(34) & "DCUINORE" & chr(34) etcetera

Otherwise the result is refering to the cells in row 2 for ALL rows, so you need some counter to increase the 2's in 3's etcetera.

Again, probably a VBA expert would be better capable to help you.