Sub Captura_ficha()
   Dim TransRowRng As Range
   Dim NewRow As Integer
   Dim i As Integer
   Dim Valor As String
   Dim Valor1 As String
   Dim RwLast As Long

   strTitulo = "Ficha de registro"

   For i = 1 To 5
       If Sheets("REGISTRO").Range("ficha" & i).Value = "" Then
           Valor = Sheets("REGISTRO").Range("ficha" & i).AddressLocal
           Valor1 = Valor1 & vbNewLine & Valor
       End If
   Next i

   RwLast = Range("A100").End(xlUp).Row

   If RwLast < 100 Then
       Set TransRowRng = ThisWorkbook.Worksheets("LISTA").Cells(1, 1).CurrentRegion
       NewRow = TransRowRng.Rows.count + 1
       With ThisWorkbook.Worksheets("LISTA")
          .Cells(NewRow, 1).Value = [ficha0]
          .Cells(NewRow, 2).Value = [ficha2]
          .Cells(NewRow, 3).Value = [ficha3]
          .Cells(NewRow, 4).Value = [ficha4]
          .Cells(NewRow, 5).Value = [ficha5]
       End With
       MsgBox "SE GRABÓ CORRECTAMENTE.", vbOKOnly + vbInformation, strTitulo
    Else
       MsgBox "HA LLEGADO EL LIMITE DE REGISTRO. POR FAVOR NOTIFIQUE AL ADMINISTRADOR", vbOKOnly + vbInformation, strTitulo
    End If
End Sub