VBA code to exclude cells that are blank

Hi everyone,

I currently have a code that for combines cells within a range together and places them into another cell.

I want the code to only include cell that have a value in and exclude those within the range that are blank.

I have included the code below:

 Dim x As String, rng As Range, cel As Range

    With ActiveSheet

        Set rng = Range("AZ10:AZ42")
        
          
        For Each cel In rng

            x = x & cel.Value & Chr(10)

        Next

        Range("BA10").Value = x
    
      End With