Range ("B" & Cells(Rows.Count).Row).End(x1Up).Offset(0, 5).Value = Range("B9").Value
It is an MS VBA code.
The MS VBA and the API of the AOO are not compatible. (API = Application Programming Interface.)
You need rewrite the macro code based on the API functions.
Use the native fileformats (ODF: .ods) and the API functions for the macro code.
Tibor Kovacs, Hungary; LibreOffice4.4.7 - Portable versions: LO3.3.0-LO5.3.1 and AOO4.1.3; on Win7x64Prof.
Please, edit the topic's initial post, and add the word "[Solved]" at the beginning of the subject line - if your problem has been solved.