Ignore blanks in Compile workbooks code

Hello all, I have been working on a code allowing me to compile many workbooks via a VBA macro, trouble is that in the set range there are many blank cells.

Is there an easy way to ignore the blank cells?

Code:

Sub MergeAllWorkbooks()
    Dim SummarySheet As Worksheet
    Dim FolderPath As String
    Dim NRow As Long
    Dim FileName As String
    Dim WorkBk As Workbook
    Dim SourceRange As Range
    Dim DestRange As Range
    
    Set SummarySheet = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
    
    FolderPath = "C:\Users\repsuser\Documents\MACRO DEV\Test\test cashbooks\"
    
    NRow = 1
    
    FileName = Dir(FolderPath & "*.xl*")
    
    Do While FileName <> ""
        
        Set WorkBk = Workbooks.Open(FolderPath & FileName)
        
        SummarySheet.Range("A" & NRow).Value = FileName
        
        Set SourceRange = WorkBk.Worksheets(1).Range("B18:N100")
        
        Set DestRange = SummarySheet.Range("B" & NRow)
        Set DestRange = DestRange.Resize(SourceRange.Rows.Count, _
           SourceRange.Columns.Count)
        
        DestRange.Value = SourceRange.Value
         
        NRow = NRow + DestRange.Rows.Count
        
        WorkBk.Close savechanges:=False
        
        FileName = Dir()
    Loop
    
    SummarySheet.Columns.AutoFit
End Sub

Many thanks