Macros en Excel: .Range(Cells

[Mithos]

Holas soy nuevo en el tema de macros.. estoy haciendo un macro que me mueva filas de una hoja a otras.
dependera del valor de una celda para que cada fila vaya a una hoja determinada.


Pero me tira error la siguiente linea:

mis hojas son: principal, interesados, nointeresados, seguimiento, noesta

Código:

 principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=interesados.Range(Cells(celda, 1))

Al parecer si uso Range con Cells me tira error, si uso Range solo todo esta ok.. pero lo malo es que necesito usar range con cells para ubicarme en determinadas celdas.. alguien me puede decir que estoy haciendo mal? llevo varias horas y por mas que busco referencias no encuentro.. Es mas eh seguido la ayuda del excel y no veo error. Help

Adjunto mi codigo completo hasta ahora

Código:

Sub filtrarbaseventas()
Dim celda  As Long
Dim celdamax As Long



celdamax = principal.UsedRange.Rows.Count

For celda = 1 To celdamax

  Select Case principal.Cells(celda, 2).Value
     
     Case "interesado"
          principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=interesados.Range(Cells(celda, 1))
          
          
    
     Case "No interesado"
           
           principal.Range(Cells(celda, 1), Cells(celda, 13)).Copy Destination:=nointeresado.Range(Cells(celda, 1))
           
           
          
          
     Case "Seguimiento"
          principal.Range(Cells(celda, 1), Cells(celda, 13)).Cut Destination:=seguimiento.Range(Cells(celda, 1))
          
          
     Case "No esta"
          principal.Range(Cells(celda, 1), Cells(celda, 13)).Cut Destination:=noesta.Range(Cells(celda, 1))
          
      Case Else
      
  
  End Select
  
Next celda




End Sub

[lufe]

Puedes poner tu archivo de Excel para bajar?

aunque sea borrando los datos críticos si tienen nombre o lo que fuera?