Sub AutDoplneni()

    krok = 1
    
    Do Until ActiveCell.Offset(0, krok) = ""
        krok = krok + 5
    Loop
    
    With ActiveCell
        .Offset(0, krok) = Date
        .Offset(0, krok + 1) = "text 1"
        .Offset(0, krok + 3) = "text 2"
        .Offset(0, krok + 4) = "text 3"
    End With

End Sub

Ako som už pred časom upozornil, pokiaľ spustíš makro a nebudeš mať aktívnu bunku v stĺpci "A", tak sa Ti to celé posunie o toľko stĺpcov doprava, o koľko stĺpcov máš vzdialenú aktívnu bunku od stĺpca "A"