Concatenate with several criteria and looping

Dim l As Long
Dim lRow As Long
Dim cel As Range
Dim x As Integer

lRow = Range("B" & Rows.Count).End(xlUp).Row

For l = 1 To lRow
    x = 0
    For Each cel In Range("B" & l & ":G" & l)
        If cel.Value <> "" Then
            x = x + 1
        End If
    Next cel
    If x = 6 Then
        Range("A" & l).Value = Range("B" & l).Value & " " & Range("E" & l).Value & " " & Range("G" & l).Value
    Else:
        Range("A" & l).Value = Range("B" & l).Value & " " & Range("C" & l).Value & " " & Range("D" & l).Value
    End If
Next l
    

End Sub