Range("A1").Select
Sheets("Лист1").Select
Selection.Copy
Sheets("Лист2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Это в Екселе так. Ключевое слово - Специальная Вставка...
Ну, а раз в Екселе можно, то и из Аксапты (в Екселе же
) - тоже можно...