Checking For Blank Cell When Reformatting

I want to reformat some data, arranged as follows, and ignore blank cells

Date1 Time1 blank Time2
Date2 blank Time3

to
Date1 Time2
Date1 Time2
Date2 Time3

Code being used, currently writes out lines where a Date exists, but Time cell is blank, what do I need to modify in the code below, to ensure blank times are not written out

Sub test()
counter = 2
For i = 1 To Range("A65536").End(xlUp).Row
For j = 2 To Cells(i, 256).End(xlToLeft).Column
Sheets("Sheet2").Cells(counter, 1).Value = Cells(i, 1).Value
Sheets("Sheet2").Cells(counter, 2).Value = Cells(i, j).Value
counter = counter + 1
Next j
Next i
End Sub