Uso de procedimientos en excel

Mandar datos e incrementar columna en excel

Private x As Integer

Sub mandar()

    Sheets("Hoja1").Select

    Range("B1:B3").Select

    Selection.Copy

    Sheets("Hoja2").Select

    x = Cells(Rows.Count, 1).End(xlUp).Row

    Cells(x + 1, 1).Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=True

    Sheets("Hoja1").Select

    Range("B1:B3").ClearContents

    MsgBox "Los datos se han guardado en la Bitácora"

End Sub

Ejemplo

Más abajo esta un ejemplo donde se manda la información de una página a otra.

Ejemplo