Здравствуйте! Было бы правильно показать правее желаемый результат.

Ведь просил -"правее" покажите желаемое: есть диапазон с исходными данными, а нужно получить "ВОТ ТАК". Может кто и захочет сопоставлять два файла...

Пока что решение вижу, заменой пустых ячеек на какое то значение скажем ААА  
и после копировать все что нужно, но при этом он заменяет пустые ячейки все 65 000 строк, что не есть хорошо.  
 
   Range("a1").Activate  
 
   Range(Selection, Selection.End(xlDown)).Select  
   Range(Selection, Selection.End(xlToRight)).Select  
 
   Dim nul As Variant  
   For Each nul In [B:J]
       If nul.Text = "" Then  
       nul.Value = "AAA"  
       End If  
   Next

Set a = Range("B3:C3")  
Set ff = Application.Intersect(a.EntireColumn, ActiveSheet.UsedRange)  
ss = ff.Address  
 
для вашего файла  
 
ss ="$B$1:$C$291"

{quote}{login=Юрий М}{date=19.01.2011 01:42}{thema=}{post}Вы ничего не напутали с данными? Откуда в "новом" диапазоне для кода 11665 взялись вот эти данные: 5,9%, 3,1%, 72221, 5,9?  
Откуда данные в столбце H?  
Про код я молчу: ActiveCell.Activate = активировать активную ячейку.{/post}{/quote}  
 
В последнем файле левее это готовый выгруженный результат который формируется в Access, правее это в файле Ексель исходник, то есть по сути он не изменен, это шаблон, в него вставляются данные из сформированного файла в Access, после чего с добавлением столбцов, формул, раскраской, так же столбцы некоторые должны быть в % или же иметь 2 знака после запятой. Сохраняем в нужное нам название и число и отправляем по почте. Это кратко, что выполняется в файле.

это просто фрагмент кода,  
вставьте в свой макрос  
и когда захотите скопировать  
"набор ячеек включая пустые"  
код будет ff.Copy

он действительно может копировать больше ячеек чем есть в столбце "A"  
 
попробуйте  
Dim a As Range  
Dim ff As Range  
 
Set a = Range("B3:C3")  
Set ff = Application.Intersect(a.EntireColumn, ActiveSheet.UsedRange)  
MsgBox ("Будут скопированы ячейки: " & ff.Address)  
ff.Copy  
 
по русски это    
назначить объект a типа диапазон = Диапазон(по адрес = "B3:C3")  
назначить объект ff типа диапазон = пересечение(а.всеколонки_полностью и весь_используемый_диапазон_на_активном_листе)  
 
ActiveSheet.UsedRange == весь_используемый_диапазон_на_активном_листе  
используемый диапазон это квадратная область от А1 до самой последней внизу и справа когда либо использованной ячейки на листе  
 
из самого смысла пересечения понятно что войдёт шапка и ячейки на самой нижней строки с которой Вы при редактировании выполняли операции ввода, неважно пуста сейчас эта ячейка или нет

{quote}{login=dl}{date=19.01.2011 03:57}{thema=Re: }{post}{quote}{login=Руслан}{date=19.01.2011 03:27}{thema=}{post}А как его ограничить списком, чтобы ровное количество копировалось не больше и не меньше чем есть в столбике А (Код)  
{/post}{/quote}  
 
ещё раз сформулируйте задачу  
из цитаты следует  
что Вам нужно скопировать несколько столбцов соседних с "А" в соответствии с областью его заполнения.  
 
вопрос: Range("A1").End(xlDown) - позволяет Вам найти искомую последнюю ячейку в столбце до которой (включительно) требуется копировать?  
 
ну и начиная с какой строки надо копировать известно?{/post}{/quote}  
 
Задача: На листе данные столбцы A B C D E F  и так далее 107 столбцов  
Есть шапка Код, Цена, Товар и так далее 107 столбцов.  
Нужно не трогая шапку скопировать все что ниже нее, соответственно задав какие столбцы должны быть скопированы не трогая шапку.    
 
В принципе ваше решение мне подходит, даже с шапкой, я могу в шаблоне файла ее удалить и копировать исходные данные в другой файл куда мне угодно уже с готовой шапкой.