Non ho molto chiaro quello che ti serve...

Questo è un frammento di codice che cicla sulle colonne di un foglio di input e scrive (più o meno come serve a te) sul foglio di output.

Se vuoi qualcosa di più specifico fai un esempio concreto dei dati contenuti nei fogli di lavoro

codice:
    Dim rigaInput As Byte, colonnaInput As Byte
    Dim rigaOutput As Byte, colonnaOutput As Byte
        
    '> ... qui c'è il codice per il ciclo principale ed il confronto delle date...
        
    '> ... presuppone che riga input sia già posizionata sulla riga corrente del foglio stazione...
    FoglioOutput.Cells(rigaOutput, 1) = Format(FoglioStazione1.Cells(rigaInput, 1), "dd/mm/yyyy")
    rigaOutput = rigaOutput + 1
    
    colonnaInput = 2: colonnaOutput = 1
    Do Until Trim(FoglioStazione1.Cells(rigaInput, colonnaInput)) = Empty
        FoglioOutput.Cells(rigaOutput, colonnaOutput) = FoglioStazione1.Cells(rigaInput, colonnaInput)
        colonnaInput = colonnaInput + 1: colonnaOutput = colonnaOutput + 1
    Loop
    rigaOutput = rigaOutput + 1