Macro- don't look in the first row

[rubinda]

The code I have below works well with the exception of one thing: Everything in row 1 is a heading and I don’t want the macro to look there. When I run this macro, if column E=”Complete” and the next cell in column F is blank it works well, but then it looks back at cell F1. How do I stop that?

Sub Edgewood()
Dim Mws As Worksheet
Dim Cws As Worksheet
Dim i As Long

Set Mws = Worksheets("Edgewood")
Set Cws = Worksheets("Edgewood-Closed")

For i = Mws.Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("E" & i).Value = "Complete" And IsDate(Range("F" & i).Value) Then
Rows(i).Copy Cws.Range("A" & Rows.Count).End(xlUp).Offset(1)
Rows(i).Delete
Else
MsgBox "There is no data in cell F" & i


ActiveWorkbook.Save

End If
Next i
End Sub

 

[MUKESHY12390]

Perhaps this..

Sub Edgewood()
Dim Mws As Worksheet
Dim Cws As Worksheet
Dim i As Long


Set Mws = Worksheets("Edgewood")
Set Cws = Worksheets("Edgewood-Closed")


For i = Mws.Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1
    If i <> 1 Then  ''' to avoid 1
        If Range("E" & i).Value = "Complete" And IsDate(Range("F" & i).Value) Then
            Rows(i).Copy Cws.Range("A" & Rows.Count).End(xlUp).Offset(1)
            Rows(i).Delete
        Else
        MsgBox "There is no data in cell F" & i
        ActiveWorkbook.Save
    End If
   End If
Next i
End Sub
[CODE]

[/CODE]

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel-questions/1061474-error-message.html#post5097618

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).