Добрый день!!!
Сразу скажу, я совсем-совсем ничего не понимаю в макросах, но жизнь заставила разобраться.
Очень прошу помочь, написала вот такой макрос:
' Макрос1 Макрос
'

'
Range("C19").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'[TOTAL MS.xlsx]Лист1'!C1:C3,3,0)"
Selection.AutoFill Destination:=Range("C19:C37"), Type:=xlFillDefault
Range("C19:C37").Select
ActiveWindow.SmallScroll Down:=-12
Range("F19").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],'[TOTAL MS.xlsx]Лист1'!C1:C4,4,0)"
ActiveWindow.SmallScroll Down:=9
Selection.AutoFill Destination:=Range("F19:F37"), Type:=xlFillDefault
Range("F19:F37").Select
Range("G19").Select
ActiveCell.FormulaR1C1 = "=RC[-3]"
Range("G19").Select
Selection.AutoFill Destination:=Range("G19:G37"), Type:=xlFillDefault
Range("G19:G37").Select
ActiveWindow.SmallScroll Down:=-6
Range("B19").Select
ActiveWindow.SmallScroll Down:=-3
End Sub

Он работает только в файлах расширения xlsx. В таком же файле и была сама книга создана.
Что сделать ,куда дописать, чтобы макрос работал на всех расширениях файлов Excel.

Спасибо заранее!!!

AndreTM, спасибо.
Именно там и была проблема!!! Теперь все работает!!!!