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

  • Thread starter Thread starter u473
  • Start date Start date
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
 
Celeste

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

Good luck.

Ken
Norfolk, Va
 
Back
Top