Sub CopyExample

	Sheets = ThisComponent.Sheets
  SheetCopy = Sheets.getByName("MemberList")    'From
  SheetPaste = Sheets.getByName("Sheet5")   'To
	CopyRange = SheetCopy.getCellRangeByName("A1:M250")
	PasteCell = SheetPaste.getCellRangeByName("B5")
	CopyAddress = CopyRange.RangeAddress
	PasteAddress = PasteCell.CellAddress
	SheetCopy.CopyRange(PasteAddress, CopyAddress)
	MsgBox "CopyAddress"&Chr(13)&_
			"    "&CopyRange.AbsoluteName &_
			Chr(13)&Chr(13)&_
			"PasteAddress "&Chr(13)&_
			"    "&PasteCell.AbsoluteName

End Sub