ThisComponent.CurrentController.Select(ThisComponent.Sheets.getByName("SheetName").getCellRangeByName("A1"))
Dim dispatcher as Object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(ThisComponent.getCurrentController().getFrame(), ".uno:Copy", "", 0, Array())