Дело в том что я перепутал и предполагал что на новом листе создаст шапку с теми названиями. Спасибо! сейчас буду кумекать под свою таблицу.

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

добавил f4 и выдало ошибку

Public Sub GetEmptyTable()  
   Dim sConn As String, pConn As New ADODB.Connection  
   Dim sSQL As String, pRSet As New ADODB.Recordset  
   Dim pSheet As Excel.Worksheet  
   sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Mode=Read;Data Source=" & ThisWorkbook.FullName  
   sConn = sConn & ";Extended Properties=""Excel 12.0;HDR=NO"";"  
   pConn.Open sConn  
   pRSet.Open "Select f2 f3 From [Книга1$] Where f1 is Null", pConn
   Set pSheet = ThisWorkbook.Worksheets.Add  
   pSheet.Range("A1").CopyFromRecordset pRSet  
   pRSet.Close: pConn.Close  
End Sub  
 
где в макросе поменять или расширить диапазон а именно:"Select f2 f3 From это для столбцов B и С добавить диапазон D E F либо выборочный B D F

Непонятно на что обратить внимание, для примера был сброшен вариант, потому как колонки могут добавляться и расширяться в макросах не очень силен и что то редактировать будет достаточно сложно, потому может вариант обычными и привычными формулами. А так макрос работает Вам anvg респект и уважуха!

Здравствуйте уважаемые знатоки!!! Помогите мне пожалуйта решить проблему, которая стоит как кость в горле: имеется таблица1 с 13 строчками: просьба-там где пусто в этой таблице, должно комплектовать в отдельную таблицу2. Сбрасываю ниже ту самую таблицу, о которой идёт речь выше. Слезно прошу, стоя на коленях, помогите пожалуйста!!!!!