MACRO LOOP

[Rajesh3720]

I Want to repeat below recorded macro for each row in sheet until column E is blank

Range("E2").Select
Selection.Copy
Sheets("LOOP PARTS").Select
Range("Table1[PART_ NUMBER ]").Select
ActiveSheet.Paste
Range("Table1[XELUS _LOCATION ]").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATA").Select
Range("J2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=IF(AND(OR(RC[-6]=25827,RC[-6]=46219,R[1]C[-6]=13405),RC[-2]=0,RC[-1]=0),""LOOP"",""NOTLOOP"")"
Range("Q3").Select

 

[jolivanes]

Instead of asking people to change an inefficient macro, it might be better to explain what you want to do.
The reason I mention this is because you use "Select" several times and this is under normal circumstances not required and actually slows the code down.
Also, for the future, when posting code, put it between code tags please.