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