VBA создать два столбца после последнего столбца, указав c строку с данными

Question

Попытка создать VBA, который добавляет два именованных столбца после последнего столбца с данными в строке 16. Я также хочу, чтобы именованные столбцы были в строке 16, я также хочу, чтобы VBA go для Следующей книги, если строки "20-й Percentile "и" 80th Percentile "уже существуют

Sub create_columns_test2()
'insert two columns on every sheet in workbook after last column with data
    'named 20th and 80th Percentile

    Dim wb As Workbook
    Dim WS As Worksheet
    Dim x As Integer

    For Each WS In Worksheets

        If WS.Cells.Find("20th Percentile", "80th Percentile") = True Then Next
        x = Sheet.UsedRange.Columns.Count
        ' I want the code to use row 16 to check for last data
        .Cells(1, x + 1) = "20th Percentile"
        .Cells(1, x + 2) = "80th Percentile"
        ' I want these names in row 16


    Next WS


End Sub

Я также получаю" Ошибка компиляции "в If WS.Cells.Find("20th Percentile", "80th Percentile") = True Then Next

Answer 1

Дайте этому шанс. Надеюсь, то, как это написано, является достаточным объяснением:

Sub create_columns_test2()

    Dim WS As Worksheet
    Dim x As Integer

    For Each WS In Thisworkbook.Worksheets

        With WS

            If .Cells.Find("20th Percentile") Is Nothing And _
               .Cells.Find("80th Percentile") Is Nothing Then 

                x = .UsedRange.Columns.Count
                .cells(16,x+2).value = "20th Percentile"
                .cells(16,x+3).value = "80th Percentile"

            End If

        End With

    Next WS

End Sub