Подстановка с 3-х листов на 4-ый с удалением дубликатов

[Raymond86]

Сообщение от Step_UA

Код то изначально был правильный, только за исключением определения последней строки ... и не включать запросы к пустым таблицам

Огромное вам человеческое спасибо))) Я еще не сталкивался запросами в коде экселя... В основном в акцессе их изучал))

Такой вопрос о написании - тут не нужно обращение к листу LETTERS CHECK???

 endRow = Sheets("CLAIMS CHECK").Cells.SpecialCells(xlCellTypeLastCell).Row
    If endRow >= 10 Then sqlStr1 = "SELECT [f1] FROM [CLAIMS CHECK$g10:g" & endRow & "]"

    endRow = Sheets("VGR").Cells.SpecialCells(xlCellTypeLastCell).Row
    If endRow >= 10 Then
        If sqlStr1 <> "" Then sqlStr1 = sqlStr1 & " Union all"
        sqlStr1 = sqlStr1 & " SELECT [f1] FROM [VGR$d10:d" & endRow & "]"
    End If
    
    If endRow >= 10 Then
        If sqlStr1 <> "" Then sqlStr1 = sqlStr1 & " Union all"
        sqlStr1 = sqlStr1 & " SELECT [f1] FROM [LETTERS CHECK$h10:h" & endRow & "]"
    End If

Хочу понять: данные оттуда берет, а обращения к нему нет почему-то))) Верней не обращения а как тут?

endRow = Sheets("VGR").Cells.SpecialCells(xlCellTypeLastCell).Row