isso deve funcionar para você, pressione ALT + F11 e cole isso, Sempre que A1 for alterado, o formato do número será alterado em A2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
With Range("$A$2")
Select Case Target.Value
Case "KG":
.NumberFormat = "###""kg"""
Case "LBS":
.NumberFormat = "###""lbs"""
End Select
End With
End If
End Sub