Public Sub SaveAsTest() 
Dim FPath As Variant
FPath = "C:\my.xls"
Dim oWbk As Workbook
Set oWbk = Application.Workbooks.Add
   oWbk.SaveAs (FPath)
   Windows("Данные.xls").Activate
   Sheets("Главная").Select
   Range("A10:C12").Select
   Selection.Copy
   
   Windows(FPath).Activate  '<======= вот тут ошибка вкралась... (Выдаёт: Subscript out of range)
   
   oWbk.Sheets("Лист1").Select
   oWbk.Sheets("Лист1").Range("A1").Select
   oWbk.Sheets("Лист1").Paste
   oWbk.Sheets("Лист1").Range("A4").Select
   oWbk.Save
   oWbk.Close
End Sub