EXCEL MACRO TO SELECT AND DELETE ENTIRE CONTENTS IN SHEET

Sub Bm()


 
    Sheets("Sheet1").Select
    Range("A1:z200").Select
    Selection.Delete Shift:=xlUp
   
   
End Sub