VBA

Private Sub CommandButton1_Click()
'Content.Text = Replace(Content.Text, "Tele Extn:  ;", "Tele Extn: " & Extn.Text & " ;")
'Content.Text = Replace(Content.Text, "Floor:    ;", "Floor: " & Floor.Text & " ;")
Cells(10, 2) = "/" & StaffID.Text
Cells(11, 2) = L(Location.Text)
Cells(12, 2) = Content.Text
Cells(10, 2).Select
ActiveCell.Copy
End Sub

Private Sub StaffID_Change()
If StaffID.Text <> "" Then
Set MyData = New DataObject
MyData.SetText StaffID.Text
MyData.PutInClipboard
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(10, 2).Copy Then
 Cells(11, 2).Copy
End If
End Sub

Function L(Data) As String
If UCase(Data) = "GZC" Then
L = "GZC - GuangZhou I"
ElseIf UCase(Data) = "FSC" Then
L = "FSC - FoShan"
ElseIf UCase(Data) = "TKH" Then
L = "TKH - TaiKouHui"
End If
End Function