Exportando planilha do Excel para CSV - mas exclui as primeiras 10 linhas

Question

[![Planilhas em amarelo desejo ignorar quando faço a exportação, o comando Ws.rows exclui as 10 primeiras linhas, mas o script vba ainda exporta todas as planilhas como CSV, o que não quero, todas as planilhas possuem dados em eles. Anexei a planilha, a primeira página é o índice, abaixo você verá as planilhas, acompanha Preço Durante a Noite.

Sub ExportCSV()

Application.DisplayAlerts = False
ActiveWorkbook.Save

Dim ws As Worksheet
Dim path As String

path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)

    For Each ws In ActiveWorkbook.Worksheets
        ws.Rows("1:10").Delete
        If ws.Name <> "Document Control" And ws.Name <> "Index sheet" Then           
            'With ws
                ws.SaveAs filename:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
            'End With
        End If
    Next ws
Application.DisplayAlerts = True
End Sub

Answer 1

Você não pode salvar apenas parte de uma planilha. Você precisa excluir o intervalo desnecessário antes de exportar.
Você não perderá os dados, pois salvou a pasta de trabalho original.

ws.Rows("1:10").Delete