Excel - FORMATO FECHAS

Sub Situacion_Final()

    Dim Fila_Orig As Long, Fecha As Date, _

        Fila_Dest As Long

    Sheets("SITUACIÓN_ACTUAL").Select

    Fila_Orig = 2

    Fila_Dest = 2

    While Cells(Fila_Orig, "A") <> Empty

        With Sheets("SITUACIÓN_MACRO")

            If Cells(Fila_Orig, "A") > Cells(Fila_Orig, "B") Or Cells(Fila_Orig, "B") = "-" Then

                .Cells(Fila_Dest, "A") = Cells(Fila_Orig, "A")

                .Cells(Fila_Dest, "B") = Cells(Fila_Orig, "C")

                Fila_Dest = Fila_Dest + 1

            Else

                For Fecha = Cells(Fila_Orig, "A") To Cells(Fila_Orig, "B")

                    .Cells(Fila_Dest, "A") = Fecha

                    .Cells(Fila_Dest, "B") = Cells(Fila_Orig, "C")

                    Fila_Dest = Fila_Dest + 1

                Next

            End If

        End With

        Fila_Orig = Fila_Orig + 1

    Wend

End Sub