Copy and paste data to separate sheets based on mutiple criteria again

I had a problem solved for me previously here. However, I now have additional data that needs to be copied over to a new sheet. This data includes blank cells.

I embedded an If statement to help fix the issue, but it doesn't seem to work.

For Each iCell In wsData.Range("A" & CurrentItem & ":L" & CurrentItem)
    Dim rngNextLine As Range:   Set rngNextLine = wsDest.Cells(Rows.Count, iCell.Column).End(xlUp).Offset(1, 0)
        If iCell.Value = "" Then
        rngNextLine.Value = ""
        Else
        rngNextLine.Value = iCell.Value
        End If
Next iCell

Can anyone tell me what I'm doing wrong? I've attached my sample.