Strange Behaviour

[cstimart]

I have a spreadsheet of data that has several columns. I have the following portion of VBA code that is not working properly.

Sheets(1).Select
    LR = Range("A" & Rows.Count).End(xlUp).Row
        For i = 2 To LR     
            If Range("C" & i) = "Blah-Blah" And Range("K" & i) = "" Then
                Range("K" & i) = Range("D" & i)
            End If
                
        Next i

Columns D and K contains Dates, or nothing. However, it doesn't seem to be recognizing the empty date cells.

Any ideas why?

 

[VoG]

Are you sure they are really blank (don't contain a space for example. Also maybe

Sheets(1).Select
    LR = Range("A" & Rows.Count).End(xlUp).Row
        For i = 2 To LR
            If Range("C" & i).Value = "Blah-Blah" And Range("K" & i).Value = "" Then
                Range("K" & i).Value = Range("D" & i).Value
            End If
                
        Next i