Excel VisualBasic Script

Sub delete()
    Rows("6:6").delete
End Sub