Sub SeleccionarCelda()
    ' Selecciona la celda A1 en la hoja activa
    Range("A1").Select
End Sub

Sub SeleccionarRango()
    ' Selecciona el rango A1:B2 en la hoja activa
    Range("A1:B2").Select
End Sub

Sub SeleccionarColumna()
    ' Selecciona toda la columna A
    Columns("A").Select
End Sub

Sub SeleccionarFila()
    ' Selecciona toda la fila 1
    Rows("1").Select
End Sub

Sub EscribirDatos()
    ' Escribe "Hola Mundo" en la celda A1
    Range("A1").Value = "Hola Mundo"
End Sub

Sub LeerDatos()
    ' Lee el valor de la celda A1 y lo muestra en un mensaje
    Dim valor As String
    valor = Range("A1").Value
    MsgBox valor
End Sub

Sub CopiarPegarRango()
    ' Copia el rango A1:B2
    Range("A1:B2").Copy
    ' Pega el rango copiado en la celda D1
    Range("D1").PasteSpecial Paste:=xlPasteAll
End Sub

Sub InsertarCeldas()
    ' Inserta una celda en A1 y desplaza las celdas hacia abajo
    Range("A1").Insert Shift:=xlDown
End Sub

Sub EliminarCeldas()
    ' Elimina la celda A1 y desplaza las celdas hacia arriba
    Range("A1").Delete Shift:=xlUp
End Sub

Sub Ejercicio1()
    ' Escribe "Ejercicio 1" en la celda B1
    Range("B1").Value = "Ejercicio 1"
    
    ' Lee el valor de la celda B1 y lo muestra en un mensaje
    Dim valor As String
    valor = Range("B1").Value
    MsgBox valor
End Sub

Sub Ejercicio2()
    ' Copia el rango C1:D2
    Range("C1:D2").Copy
    ' Pega el rango copiado en la celda F1
    Range("F1").PasteSpecial Paste:=xlPasteAll
End Sub

Sub Ejercicio3()
    ' Inserta una celda en E1 y desplaza las celdas hacia abajo
    Range("E1").Insert Shift:=xlDown
    
    ' Elimina la celda E1 y desplaza las celdas hacia arriba
    Range("E1").Delete Shift:=xlUp
End Sub