
Dim UltimaFila As Long
UltimaFila = Range("I" & CStr(Cells.Rows.Count)).End(xlUp).RowPublic Sub Ejemplo()
Dim UltimaFila As Long
Dim Contador As Long
UltimaFila = Range("I" & CStr(Cells.Rows.Count)).End(xlUp).Row
For Contador = UltimaFila To 2 Step -1
Cells(Contador, 2).Value = Len(Cells(Contador, 1))
Next Contador
End Sub

Usuarios navegando por este Foro: elirico01 y 7 invitados