Можете попробовать мой вариант решения аналогичной проблемы:  
 
 
Sub ПримерИспользования()  
   On Error Resume Next  
   arr = [a1:d15]
   arr2 = DeleteBlankRows(arr, [a19])
   [f1:z111].Clear
   [f1].Resize(UBound(arr2, 1), UBound(arr2, 2)).Value = arr2
End Sub  
 
Function DeleteBlankRows(ByVal arr As Variant, ByVal col As Long) As Variant  
   ' осуществляет удаление пустых строк из массива  
   ' получает в качестве параметров исходный массив, и номер столбца,  
   ' по которому определяется, является ли строка постой  
   ' возвращает новый массив (с меньшей размерностью по вертикали)  
   If Not IsArray(arr) Then MsgBox "Это не массив!", vbCritical: Exit Function  
   If col > UBound(arr, 2) Then MsgBox "Нет такого столбца в массиве!", vbCritical: Exit Function  
   If col < LBound(arr, 2) Then MsgBox "Нет такого столбца в массиве!", vbCritical: Exit Function  
 
   Dim iCount As Long    ' кол-во непустых строк  
   For i = LBound(arr) To UBound(arr)  
       iCount = iCount - (arr(i, col) <> "")  
   Next i  
 
   ReDim narr(LBound(arr, 1) To iCount + LBound(arr, 1) - 1, LBound(arr, 2) To UBound(arr, 2))  
 
   iCount = LBound(narr)    ' счётчик записей  
   For i = LBound(arr, 1) To UBound(arr, 1)  
       If arr(i, col) <> "" Then  
           For j = LBound(arr, 2) To UBound(arr, 2)  
               narr(iCount, j) = arr(i, j)  
           Next j  
           iCount = iCount + 1  
       End If  
   Next i  
 
   DeleteBlankRows = narr  
End Function

Понадобилось копировать  диапазон с одного листа на другой (в примере - на тот же). Но диапазон не весь, а с разрывами. Расстояния между блоками и сами блоки разные. В блоках могут отсутствовать значения. В рабочем файле 8 блоков по 1-13 ячеек (всего 40 значений).  
Копировать можно последовательным перебором. В файле диапазон заносится в массив.  
Можно ли составить более простой код? Т.е. есть ли возможность упростить код, удалив ненужные элементы из массива?

Ух ты! С константами еще не работал.  
Спасибо, сейчас буду экспериментировать.

Николай, спасибо за попытку, но не то.  
Формируется база, определенным данным предназначено определенное место в строке. Если на данный момент данных в ячейке нет, ее теплое место в базе пустое.

Вариант Алексея работает. Понравилось - для меня новое.  
Не понял с подстановкой, надо почитать.  
 
Игорь, согласен, все прозрачно, но душа требует гармонии :)