Rango inicial y final de un encabezado

[Benito Bartolomé]

Hola de nuevo;

Estoy tratando de fijar conceptos sobre los rangos.

En la macro que adjunta he implementado un procedimiento que se me sugirió aquí en el cual la macro me da el primer rango del encabezado de una tabla.

Estoy intentado hacer lo mismo con el último pero veo que  al ir insertando columnas no devuelve correctamente el rango.

A ver si me podéis indicar donde estoy fallando.

Adjunto la macro.

Saludos a todos.

MCR.xlsm

[Antoni]

Sub vCurrent()
With ActiveSheet.UsedRange
   MsgBox "Rango1:  " & .Cells(1).Address & vbCrLf & _
          "Rango2:  " & .End(xlToRight).Address & vbCrLf & _
          "RangoT:  " & Range(.Cells(1), .End(xlToRight)).Address
End With
End Sub

 

[Benito Bartolomé]

Hace 2 horas, Antoni dijo:

Sub vCurrent()
With ActiveSheet.UsedRange
   MsgBox "Rango1:  " & .Cells(1).Address & vbCrLf & _
          "Rango2:  " & .End(xlToRight).Address & vbCrLf & _
          "RangoT:  " & Range(.Cells(1), .End(xlToRight)).Address
End With
End Sub

 

Hola y muchas gracias por la respuesta Antoni.  Disculpa la tardanza.

Un abrazo y enhorabuena por el título o eras del Barsa, ahora me dudo.???

[Antoni]

Hace 12 horas, Benito Bartolomé dijo:

Un abrazo y enhorabuena por el título o eras del Barça, ahora me dudo.???

¿Tu has visto mi nombre? 

Otra pista: Nací en Barcelona hace 72 años y viví en Barcelona durante 50 años.

Si después de leer esto te quedan dudas, vuelve a empezar. ?

[Benito Bartolomé]

Hace 7 minutos , Antoni dijo:

¿Tu has visto mi nombre? 

Otra pista: Nací en Barcelona hace 72 años y viví en Barcelona durante 50 años.

Si después de leer esto te quedan dudas, vuelve a empezar. ?

Pues siempre pensé que eras del Barsa??

Era para ponerte a prueba. 

Ya me parecía raro, el del R.Madrid

entonces es @Halpox.

Me hago mayor, está errata es imperdonable?