1. Graba una macro que cree una tabla como la que se muestra en la imagen:

• Comprueba el código generado y realiza las modificaciones que creas oportunas.

Esta podría ser una posible solución:

Sub rellenar_dias()

    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = "lunes"
    Selection.AutoFill ActiveCell.Range("A1:E1"), xlFillDefault
    ActiveCell.Offset(1, -1).Select
    ActiveCell.Value = "8:00"
    Selection.AutoFill ActiveCell.Range("A1:A7"), xlFillDefault
    ActiveCell.Offset(-1, 0).Select
    ActiveCell.Range("A1:F8").Select
    With Selection.Borders
    
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .Weight = xlThin
    
    End With
    ActiveCell.Range("A1:A8").Select
    Selection.Interior.Color = 39270
    Selection.Font.Bold = True
    ActiveCell.Range("A1:F1").Select
    Selection.Interior.Color = 39270
    Selection.Font.Bold = True

End Sub