Я копирую одну Excel таблицу в шаблонную. Внутри шаблонной таблицы имеются данные и формулы которые требуется сохранить. Соответствующие ячейки исходной таблицы не содержат ничего. Формат шаблона также должен быть сохранён. Ниже я привёл код где я использую для этого Copy/PasteSpecial/Values+SkipBlanks. В результате все ячейки шаблона, содержавшие что-либо, стёрты.

Буду очень благодарен, если вы мне исправите мне мой код.

Function CopyRep()

Dim srcFile, targetFile As String
Dim xl As Object
Dim wbSrc As Object
Dim wbTrg As Object

srcFile = "c:\temp\data.xlsx"
targetFile = "c:\temp\template.xlsx"
Set xl = CreateObject("Excel.Application")
xl.ScreenUpdating = False
xl.DisplayAlerts = False
Set wbSrc = xl.Workbooks.Open(srcFile)
wbSrc.Sheets("Sheet 1").Range("A1:G26").Select
wbSrc.Sheets("Sheet 1").Range("A1:G26").Copy
wbSrc.Close
Set wbTrg = xl.Workbooks.Open(targetFile)
wbTrg.Sheets("Sheet 1").Range("A2:G27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True
wbTrg.SaveAs targetFile
wbTrg.Close
Set wbSrc = Nothing
Set wbTrg = Nothing
xl.ScreenUpdating = True
xl.DisplayAlerts = True
xl.Quit
Set xl = Nothing

End Function

http://www.sql.ru/forum/1165282/ne-rabotaet-pastespecial-skipblanks