Gabriel Pérez respondió:
Te anexo un código que te puede funcionar. Actívala con un botón. Programador -> Insertar -> Botón (dibujas) -> Macro copia_pega Sub Copia_Pega() ' Dim ultimo, x As Integer Dim rango As String ' x = Sheets("Hoja2").UsedRange.Columns.Count + 1 ultimo...