La macro simpre inserta en el mismo renglon.

[chicalita]

Cree un formulario el cual asocie a una macro para que la informacion se gurde en otra hoja, el detalle es que simpre se guarda enla misma linea borrando la informacion que anteriormente estaba ahi, no se como hacer para que la informacion se inserte en el siiguiente reglon.

No puedo adjuntar el archivo asi que pondre el codigo de la macro.

Este es el codigo de la macro

Sub guardar()

'

' guardar Macro

' para guardar datos

'

'

Application.ScreenUpdating = False

Sheets("Informe").Select

Range("A3:K7").Select

Selection.ClearContents

Range("A4").Select

Sheets("Formulario").Select

Range("C5").Select

Selection.Copy

Sheets("Informe").Select

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

:=False, Transpose:=False

Range("A26").Select

Sheets("Formulario").Select

Range("C8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Informe").Select

Range("B4").Select

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

:=False, Transpose:=False

Sheets("Formulario").Select

Range("C11:D11").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Informe").Select

Range("C4:D4").Select

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

:=False, Transpose:=False

Sheets("Formulario").Select

Range("C14").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Informe").Select

Range("E4").Select

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

:=False, Transpose:=False

Sheets("Formulario").Select

Range("C17").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Informe").Select

Range("F4").Select

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

:=False, Transpose:=False

Sheets("Formulario").Select

Range("G5:H5").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Informe").Select

Range("G4:H4").Select

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

:=False, Transpose:=False

Sheets("Formulario").Select

Range("G8:I8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Informe").Select

Range("I4:K4").Select

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

:=False, Transpose:=False

Sheets("Formulario").Select

Application.CutCopyMode = False

Selection.ClearContents

Range("G5:H5").Select

Selection.ClearContents

Range("C11:D11").Select

Selection.ClearContents

Range("C8").Select

Selection.ClearContents

Range("C5").Select

Selection.ClearContents

Range("C14").Select

Selection.ClearContents

Range("C17").Select

Selection.ClearContents

MsgBox "Datos Registrados con Exito", vbInformation, "Datos Guardados"

End Sub

[Armando Montes]

Hola, para encontrar última fila (en columna especificada):

Ejemplos de macros | Curso de VBA Excel

Para mejorar las macros:

14 formas de acelerar y optimizar tus macros excel | TodoExcelTodoExcel

Para mejor aprovechar el foro ve por favor las normas y usa etiquetas para los codigos.