Transform VBA to Office Script

Natalia_G 

Sub copy_and_paste()

Dim i As Long

Sheets("BaseDatos").Select
Range("A1:B1").Select
Selection.Copy
Sheets("Documento").Select
i = Range("J" & Rows.Count).End(xlUp).Row + 1
Range(Cells(i, 10), Cells(i, 11)).Select
ActiveSheet.Paste

End Sub

Maybe with this code which determines the first blank cell in column J in sheet "Documento" and pastes the data in columns J and K.