Dim ws As Object
    Dim wb As Object
    Dim exapp As Object
 
    Set exapp = CreateObject("excel.application")
    Set wb = exapp.Workbooks.Open("D:\test.xls") 'Name Deiner Excel-Datei
    Set ws = wb.Worksheets("Test") 'Name Deiner Tabelle in der Datei
    ws.Rows("2:180").ClearContents 'löscht den Inhalt aller Zeilen von 2 bis 180
    wb.Close True
    exapp.Quit