Solución 9.13 Encontrar la última celda que contenga un valor de una columna

Sub UltimaCelda()  
  Dim strLetraColumna As String  
  Dim intNumeroColumna As Integer  
  Dim strMensaje As String  
  On Error GoTo Salida_error  
  strLetraColumna = _  
  VBA.UCase(InputBox("Introduzca ...