Code line syntax error

[jim may]

Syntax error on Line 2 - Help!

MyCnt = WorksheetFunction.CountA(Range(Cells(i, "E"), Cells(i, "T")))
    Cells(i, "A").Offset(1).Rows(""1:" & MyCnt & "")" & .EntireRow.Insert

 

[VoG]

Try

MyCnt = WorksheetFunction.CountA(Range(Cells(i, "E"), Cells(i, "T")))
    Cells(i, "A").Offset(1).Rows("1:" & MyCnt).EntireRow.Insert

 

[jim may]

Peter, Thanks as usual.
Jim

 

[jim may]

Suddenly got another 1004 R/T from: Can anyone spot problem?

Range("V2:V" & LR).Formula = "=IF(ISNA(INDEX($E2:$T2,1,MATCH($D2,$E$1:$T$1,0))>0),""NONE REV DEPT"",IF(INDEX($E2:$T2,1,MATCH($D2,$E$1:$T$1,0))>0,""DUP TRANS"",""))"

 

[RoryA]

You forgot to double up the final quotes:

Range("V2:V" & LR).Formula = _
"=IF(ISNA(INDEX($E2:$T2,1,MATCH($D2,$E$1:$T$1,0))>0),""NONE REV DEPT"",IF(INDEX($E2:$T2,1,MATCH($D2,$E$1:$T$1,0))>0,""DUP TRANS"",""""))"

 

[jim may]

Rory, THANKS !!!

I guess 2 out of 3 times is not "ENOUGH"; LOL, Thanks ! Been at this ALL DAY,,, Jim