Works but Still Errors?

[schulzy175]

For i = 1 To 5000

                If IsEmpty(Selected) = False Then

                

                   range("A0" & i).Value = Sheets("Entry").range(Selected & i) & " " & Sheets("Entry").range(Selected & i).Offset(0, 1)

                   

                   

                    

                    ElseIf IsEmpty(range("Q0" & i)) = False Then

                    

                            range("Y0" & i).Text = range("Q0" & i).Text

                    

                    Else

                    

            

                End If

                

                Next i

At line

range("A0" & i).Value = Sheets("Entry").range(Selected & i) & " " & Sheets("Entry").range(Selected & i).Offset(0, 1)

I get the error message "Run-Time Error 13 Type Mismatch" but the entire code still executes normally.