With Range("A4")
.Font.Size = 10
.Font.Bold = False
.Value = LCase("Człowieku" & " " & Range("A1") & " " & Range("A2") & " " & Range("A3"))
.Value = UCase(Left(.Value, 1)) & Right(.Value, Len(.Value) - 1)

.Characters(Start:=1, Length:=Len("człowieku")).Font.Bold = True
.Characters(Start:=1, Length:=Len("człowieku")).Font.Size = 14

.Characters(Start:=Len(.Value) - Len(Range("A3")) + 1, Length:=Len(Range("A3"))).Font.Bold = True
.Characters(Start:=Len(.Value) - Len(Range("A3")) + 1, Length:=Len(Range("A3"))).Font.Size = 14

End With