Пропустить нулевое значение до следующей рабочей таблицы и вставить в другую рабочую книгу с таблицей имен sama

Question

1. это Рабочая книга A и имеет 7 листов, как я делаю цикл столбца G , когда G имеет значение 1 ивставьте его в другую рабочую книгу и автоматически создайте имя листа, например Рабочая книга A , например, циклическую вставку

2. во время циклического поиска и найденный лист, который не имеет значения 1 in столбец G , как я могу пропустить эти листы и начать зацикливание на следующем листе, потому что, если лист не имеет значения 1 в столбце G , зацикливание автоматически остановится как я могу это исправить?

.

 Sub historical()
    Dim currentSheet As Worksheet, sheetIndex As Integer
    Dim baris As Long, pasterowIndex As Long
    sheetIndex = 8
    pasterowIndex = 2
    For Each currentSheet In Worksheets
        For baris = 2 To Cells(Rows.Count, 7).End(xlUp).Row
            If Cells(baris, 7).Value = "1" Then
                Rows(baris).Select
                Selection.Copy
                Sheets(sheetIndex).Select
                Rows(pasterowIndex).Select
                ActiveSheet.Paste
                pasterowIndex = pasterowIndex + 1
                currentSheet.Select
            End If
        Next baris
        pasterowIndex = 2
        sheetIndex = sheetIndex + 1
    Next currentSheet
End Sub