Saving Totals Row to Separate Worksheet - Next w/o For Error ?

U

u473

I cannot detect my own For Next Error in this code..
Sub SaveTotals()
'
' Detect Phase Total Row from Column I & Save row to Totals Sheet
Dim RowNdx As Long, LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
For RowNdx = LastRow To 13 Step -1
If Cells(RowNdx, "I").Value = "Phase Totals" Then
Cells(RowNdx, "A").Value = Cells(RowNdx, "E7").Value
With Sheets("Totals")
lr = .Cells(Rows.Count, "a").End(xlUp).Row + 1
Rows(c.Row).Copy .Cells(lr, 1)
End With
Next RowNdx
End Sub

Help appreciated,
Celeste
 
J

JE McGimpsey

The problem is that you're missing an

End If

between

End With

and

Next RowNdx
 
K

Ken

Celeste

Looks like you are missing an End If after your End With.

Good luck.

Ken
Norfolk, Va
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top