Erreur macro Excel

Bonjour,

Dans la macro su dessous, j'ai un problème avec le ligne :
While Cells(i, 2).Value <> "Nº"
Je ne trouve pas l'erreur, si quelqu'un à une idée elle serra la bien venue..

Merci
------------------------------------------------------------------------------------------

Sub filtrar()
    lua_fich = ActiveWorkbook.Name
    Load UserForm1
    UserForm1.Show
    Workbooks(lua_fich).Sheets("Datos Filtrados").Select
End Sub

Sub crear_acta()
    ruta = ActiveWorkbook.Path
    nombre = ActiveWorkbook.Name
    Workbooks.Open Filename:=ruta & "\Acta Reunion.xls"
    dia = Workbooks(nombre).Sheets("Datos Filtrados").Cells(6, 3).Value
    semana = DatePart("ww", dia, vbMonday, vbFirstFourDays)
    año = DatePart("yyyy", dia)
    Cells(3, 5).Value = dia
    i = 1
    While Cells(i, 2).Value <> "Nº"
    i = i + 1
    Wend
    i = i + 1
    j = 6
    Cells(2, 4).Value = Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 6).Value
    j = j + 1
   
    While Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 3).Value <> ""
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 2).Copy
        Cells(i, 2).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 5).Copy
        Cells(i, 3).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 6).Copy
        Cells(i, 4).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 8).Copy
        Cells(i, 5).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 7).Copy
        Cells(i, 6).Select
        ActiveSheet.Paste
        
        i = i + 1
        j = j + 1
    Wend
    
        Cells(1, 1).Select
End Sub