Formulario de captura que guarda datos en otra hoja sin iniciar en celda a1

[jj_po]

Tengo un problema, necesito que el formulario dependiendo de un criterio empiece a guardar la información desde la celda A1 o desde la celda A18.

Estoy utilizando el código:

Set Trasladar = ThisWorkbook.Worksheets("XXXXX").Cells(1, 1).CurrentRegion

NewRow = Trasladar.Rows.Count + 1

With ThisWorkbook.Worksheets("XXXXX")

.Cells(NewRow, 1).Value = Date

.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(1).Range("D2")

.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(1).Range("D4")

.Cells(NewRow, 4).Value = ThisWorkbook.Sheets(1).Range("D5")

.Cells(NewRow, 5).Value = ThisWorkbook.Sheets(1).Range("D6")

.Cells(NewRow, 6).Value = ThisWorkbook.Sheets(1).Range("D7")

.Cells(NewRow, 7).Value = ThisWorkbook.Sheets(1).Range("D8")

.Cells(NewRow, 8).Value = ThisWorkbook.Sheets(1).Range("D9")

.Cells(NewRow, 9).Value = ThisWorkbook.Sheets(1).Range("D11")

.Cells(NewRow, 10).Value = ThisWorkbook.Sheets(1).Range("D12")

End With

Pero cuando cambio el "Set Trasladar = ThisWorkbook.Worksheets("XXXXX").Cells(18.1).CurrentRegion"

solo guarda desde la primera fila y sobrescribe una y otra vez, ni empieza en la A18 ni se va corriendo una fila, para cada ingreso.

Agradezco la ayuda

[jj_po]

Lo único que necesito es que si se cumple un criterio en lugar que de empiece en (1,1) empiece en (18,1) pero por alguna razón no funciona al cambiarlo en la línea especificada.

[Enigma25]

Hola [uSER=222547]@jj_po[/uSER]

Por adjunta un archivo como ejemplo y especifica un poco mas lo que necesitas.

Tambien te invito a que veas : Utilización - Funcionamiento

Saludos hermano.

[Invitado jorge de leon]

?