Compile Error: End If without Block If

[ptreegrdn]

I'm a newbie and trying to create a macro but just cannot figure out why I keep receiving this compile error. I thought this code was fairly straightforward. Can someone please help me troubleshoot? Thanks!

Sub Copy_Incompletes() '
'
'


Dim i, Totrows As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("CA-Alta")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("CA-Jefferson")
Dim ws3 As Worksheet: Set ws3 = ThisWorkbook.Sheets("CA-Sheridan")
Dim ws4 As Worksheet: Set ws4 = ThisWorkbook.Sheets("CA-Reedley")
Dim ws5 As Worksheet: Set ws5 = ThisWorkbook.Sheets("CA-Incompletes")


Application.ScreenUpdating = False


ws1.Activate
Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2


For i = 3 To Totrows
If Cells(i, 1) = "Incomplete" Then Rows(i).Copy
'activates CA-Incompletes worksheet


ws5.Activate
Rows(3).Select
Selection.Insert Shift:=xlDown
ws1.Activate
'Copy row and paste it to the other worksheet
End If


Next i




ws2.Activate
Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2


For i = 3 To Totrows


If Cells(i, 1) = "Incomplete" Then Rows(i).Copy
'activates CA-Incompletes worksheet
ws5.Activate
Rows(3).Select
Selection.Insert Shift:=xlDown
ws2.Activate
'Copy row and paste it to the other worksheet
End If


Next i




ws3.Activate
Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2


For i = 3 To Totrows


If Cells(i, 1) = "Incomplete" Then Rows(i).Copy
'activates CA-Incompletes worksheet
ws5.Activate
Rows(3).Select
Selection.Insert Shift:=xlDown
ws3.Activate
'Copy row and paste it to the other worksheet
End If


Next i




ws4.Activate
Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2


For i = 3 To Totrows


If Cells(i, 1) = "Incomplete" Then Rows(i).Copy
'activates CA-Incompletes worksheet
ws5.Activate
Rows(3).Select
Selection.Insert Shift:=xlDown
ws4.Activate
'Copy row and paste it to the other worksheet
End If


Next i




Application.ScreenUpdating = True


End Sub

 

[mole999]

Which line errors when you compile

 

[ptreegrdn]

The very first End If

 

[Norie]

All of your Ifs are one-liners so you could 'fix' the code by removing all the End Ifs.

However I don't think that's what you want, instead try moving the code that copies onto the next line like this.

Sub Copy_Incompletes()
'
'
'
Dim i, Totrows As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("CA-Alta")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("CA-Jefferson")
Dim ws3 As Worksheet: Set ws3 = ThisWorkbook.Sheets("CA-Sheridan")
Dim ws4 As Worksheet: Set ws4 = ThisWorkbook.Sheets("CA-Reedley")
Dim ws5 As Worksheet: Set ws5 = ThisWorkbook.Sheets("CA-Incompletes")

    Application.ScreenUpdating = False

    ws1.Activate
    
    Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2

    For i = 3 To Totrows
        If Cells(i, 1) = "Incomplete" Then
            Rows(i).Copy
            'activates CA-Incompletes worksheet


            ws5.Activate
            Rows(3).Select
            Selection.Insert Shift:=xlDown
            ws1.Activate
            'Copy row and paste it to the other worksheet
        End If

    Next i

    ws2.Activate
    
    Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2

    For i = 3 To Totrows

        If Cells(i, 1) = "Incomplete" Then
            Rows(i).Copy
            'activates CA-Incompletes worksheet
            ws5.Activate
            Rows(3).Select
            Selection.Insert Shift:=xlDown
            ws2.Activate
            'Copy row and paste it to the other worksheet
        End If

    Next i

    ws3.Activate
    
    Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2

    For i = 3 To Totrows

        If Cells(i, 1) = "Incomplete" Then
            Rows(i).Copy
            'activates CA-Incompletes worksheet
            ws5.Activate
            Rows(3).Select
            Selection.Insert Shift:=xlDown
            ws3.Activate
            'Copy row and paste it to the other worksheet
        End If

    Next i

    ws4.Activate
    
    Totrows = Range(Cells(3, 1), Cells(3, 1).End(xlDown).Address).Rows.Count + 2

    For i = 3 To Totrows

        If Cells(i, 1) = "Incomplete" Then
            Rows(i).Copy
            'activates CA-Incompletes worksheet
            ws5.Activate
            Rows(3).Select
            Selection.Insert Shift:=xlDown
            ws4.Activate
            'Copy row and paste it to the other worksheet
        End If

    Next i

    Application.ScreenUpdating = True

End Sub

 

[ptreegrdn]

Perfect - the new code did the trick! Thank you!! Now what exactly did you do to fix it? As I said, I'm a newbie!

 

[Norie]

All I did was move the highlighted line onto the next row.

BEFORE

For i = 3 To Totrows
If Cells(i, 1) = "Incomplete" Then Rows(i).Copy
'activates CA-Incompletes worksheet


ws5.Activate
Rows(3).Select
Selection.Insert Shift:=xlDown
ws1.Activate
'Copy row and paste it to the other worksheet
End If


Next i

AFTER

For i = 3 To Totrows
    If Cells(i, 1) = "Incomplete" Then 
        Rows(i).Copy
        'activates CA-Incompletes worksheet
        ws5.Activate
        Rows(3).Select
        Selection.Insert Shift:=xlDown
        ws1.Activate
        'Copy row and paste it to the other worksheet
    End If
Next i

 

[ptreegrdn]

I knew it had to be something simple. Thanks so much for your quick response!