Hi Roger:

The first question is quite easy, just nest the functions:

=UPPER(RIGHT(A1,8))

The second question is not as easy.

Maybe...

=UPPER(MID(RIGHT(A1,8),1,3))&RIGHT(A1,3)

But that depends on the final 8 characters always being the same format:
xxxx yyy

I thought it was a requirement that there be a <space> prior to the last 3
characters.

According to http://www.zipcodeworld.com/addressing/greatbritain.htm  valid
postcodes are in one of the following formats:

The postcode will be in one of the six following formats. 'A' represents a
letter of the alphabet and 'N' a digit:
    
Format         Example
AN NAA         M2 5BQ
ANN NAA     M34 4AB
AAN NAA     CR0 2YR
AANN NAA     DN16 9AA
ANA NAA     W1A 4ZZ
AANA NAA     EC1A 1HQ

Also, there are a finite number of postcode areas.

Depending on all of your requirements, it would be possible to at least ensure
that the postcode is valid; it would also be possible to insert a <space> if
one does not exist.

I would not want to develop a method to validate that the address and postcode
go together, however.  On that note I would point out that, according to the
above mentioned site, LN refers to Lincoln, UK and not London, UK.

So, do you want any type of validation?
Will some of your postcodes NOT have the required <space>?
Will some of your address lines NOT have postcodes at the end?

In any event, the User Defined Function below will extract anything that looks
similar to a valid postcode, with or without the required space, provided it is
at the end of a line of text.

It will return the result capitalized, and also with the last three characters
preceded by a <space>.

To enter this, <alt-F11> opens the VB Editor.  Ensure your project is
highlighted in the project explorer window, then Insert/Module and paste the
code below into the window that opens.  

If GB develops new postal areas, some modification of the code below will be
required, but that should be simple to do.

To use this, enter the formula =PostCode(cell_ref) where cell_ref refers to a
single cell.

This code should work even if the entire address is in a single cell.

====================================================
Option Explicit
Function PostCode(Str As String) As String
Dim re As Object, mc As Object
Set re = CreateObject("vbscript.regexp")
With re
   .Global = True
   .MultiLine = True
   .ignorecase = True
'Valid postcode format with optional <space>
   .Pattern = "(\b\w{1,2}\d\w?)\s?(\d[ABD-HJLNP-UW-Z]{2}\b)\s*$"
End With

If re.test(Str) = True Then
   Set mc = re.Execute(Str)
   PostCode = UCase(mc(0).submatches(0) _
       & " " & mc(0).submatches(1))
End If
End Function
===================================
--ron