Sub Macro1()
    Range("A1:E7").EntireRow.Value = "test"
    Range("A8:A9").EntireRow.Value = "8sE9s"
    Cells(3,1).EntireRow.Clear
    Range("C1").EntireColumn.Clear
    Cells(7,1).EntireRow.Delete
End Sub
