Sum the total value for each row at that column

[Alexandro88]

Worksheets("Sheet3").Select
With Application.WorksheetFunction

For Each rngcell In Range("M1:M" & Range("A" & Rows.Count).End(xlUp).Row)

If InStr(1, Left(rngcell.Value, 5), "SFET4") Then
vResult = .Sum(Range("J1:J")) + vResult
ElseIf InStr(1, Left(rngcell.Value, 5), "SFET3") Then
zResult = .Sum(Range("J1:J")) + zResult
End If

Next

MsgBox vResult
MsgBox zResult

End With

Hi, my code will stuck at
vResult = .Sum(Range("J1:J")) + vResult

Any1 can help me?

 

[Weaver]

That's because

Range("J1:J")

isn't a valid range, as you're not identifying the final row