Riempire cella fino a quando raggiungi il valore

 Sub scrivi()
Dim temp, temp1, temp2, temp3, temp4, temp5, temp6, temp7 As String

    temp1 = Range("c1").Value
    temp2 = Range("d1").Value
    temp3 = Range("e1").Value
    temp4 = Range("f1").Value

    temp = temp1
    temp5 = temp & " " & temp2
    temp6 = temp5 & " " & temp3
    temp7 = temp6 & " " & temp4    
    
    For i = 2 To 5
    If Len(temp7) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp7
    ElseIf Len(temp6) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp6
    ElseIf Len(temp5) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp5
    ElseIf Len(temp) <= Range("a" & i).Value Then
        Range("b" & i).Value = temp
    End If
    Next i
    
End Sub

 =SE(LUNGHEZZA($B$7)<A13;$B$7;"")&SE(LUNGHEZZA($B$7&" "&$C$7)<A13;" "&$C$7;"")&SE(LUNGHEZZA($B$7&" "&$C$7&" "&$D$7)<A13;" "&$D$7;"")&SE(LUNGHEZZA($B$7&" "&$C$7&" "&$D$7&" "&$E$7)<A13;" "&$E$7;"")

 =SE(LUNGHEZZA(B$7)>A13;" ";SE(LUNGHEZZA(CONCATENA(B$7;" ";C$7))>A13;B7;SE(LUNGHEZZA(CONCATENA(B$7;" ";C$7;" ";D$7))>A13;CONCATENA(B$7;" ";C$7);SE(LUNGHEZZA(CONCATENA(B$7;" ";C$7;" ";D$7;" ";E$7))>A13;CONCATENA(B$7;" ";C$7;" ";D$7);CONCATENA(B$7;" ";C$7;" ";D$7;" ";E$7)))))