Ayuda Macro

Por lo que entiendo esto es para completar la primera pregunta, bueno lo que debes hacer es agregar lo que te indico más abajo en la anterior a la antepenúltima linea de la rutina anterior, es decir, entre las líneas que dicen: "End Select" y "ActiveCell.Offset(1,0).Select
Nom1 = ActiveCell
Largo = Len(ActiveCell)
For i = 1 To Largo
Dato = Mid(Nom1, i, 1)
If Dato = "ñ" Then
If i = 1 Then
Nom1 = "n" & Right(Nom1, Largo - 1)
ElseIf i = Largo Then
Nom1 = Left(Nom1, i - 1) & "n"
Else
Nom1 = Left(Nom1, i - 1) & "n" & Right(Nom1, Largo - i)
End If
ElseIf Dato = "Ñ" Then
If i = 1 Then
Nom1 = "N" & Right(Nom1, Largo - 1)
ElseIf i = Largo Then
Nom1 = Left(Nom1, i - 1) & "N"
Else
Nom1 = Left(Nom1, i - 1) & "N" & Right(Nom1, Largo - i)
End If
End If
Next
ActiveCell = Nom1