'*******************************************************************
'Code from here down to next line of asterisks

    For Each cell In wsSource.Range("B2:B" & lastRow)
       If cell.Value = "" Then
          Exit For
       Else
          If cell.Offset(, 2) = wsDest.Name Then
            Sheets(cell.Value).UsedRange.Copy
            wsDest.Range("A" & wsDest.UsedRange.Rows.Count + 2).PasteSpecial Paste:=xlPasteValues
          End If
       End If
    Next cell

'Code from here up to next line of asterisks
 '*******************************************************************