Mar 15 2023 11:50 AM - edited Mar 15 2023 12:47 PM
Mar 15 2023 12:08 PM
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.