Ок.. Во вложении файл примера  
На листе "Шаблон" есть столбец J21-J117  
В него нужно вставить дни выполнения проекта (только рабочие дни)  
На листе "График" есть столбцы H где указаны все выходные дни, и столбец Q2-Q18 где указаны только праздники...

Пробуйте. Я не понял, откуда брать даты начала и окончания, поэтому вводил вручную. Допилите сами.  
 
Sub bb()  
Dim d1&, d2&, h As New Collection, v() As Date, i&, j&, x  
 
d1 = CDate(InputBox("Введите дату начала", , "15.4.12"))  
d2 = CDate(InputBox("Введите дату окончания", , "1.7.12"))  
On Error Resume Next  
With Worksheets("График")  
   For Each x In Range(.Range("H1"), .Cells(.Rows.Count, "H").End(xlUp)).Value  
       h.Add 0, CStr(CLng(x))  
   Next  
   For Each x In Range(.Range("Q2"), .Cells(.Rows.Count, "Q").End(xlUp)).Value  
       h.Add 0, CStr(CLng(x))  
   Next  
End With  
ReDim v(0 To d2 - d1)  
Err.Clear  
For i = d1 To d2  
   h.Add 0, CStr(i)  
   If Err Then Err.Clear Else v(j) = i: j = j + 1  
Next  
ReDim Preserve v(0 To j - 1)  
With Range("Шаблон!J21")  
   Range(.Cells, .End(xlDown)).ClearContents  
   .Resize(j).Value = Application.Transpose(v)  
End With  
End Sub

Эту подпрограмму можно разместить в обычном модуле или в модуле листа и вызывать по какому-либо событию. Или по нажатию кнопки.