comparto mi código, el error está al final Private Sub Btn_Guardar_Click() Dim wsForm As Worksheet Dim wsDB As Worksheet Dim lastRowDB As Long Dim i As Long Dim validData As Boolean Dim errorMsg As String Set wsForm = ThisWorkbook.Sheets("Form") Set wsDB = ThisWorkbook.Sheets("DB") validData = True errorMsg = "Error: Las siguientes filas tienen datos incompletos:" & vbCrLf ' Verificar que la columna G esté correctamente completada For i = 12 To 46 If wsForm.Cells(i, 6).Value = False And wsForm.Cells(i, 7).Value = "" Then validData = False errorMsg = errorMsg & "Fila " & i & ": Columna G debe tener un número si F es FALSO" & vbCrLf End If Next i If Not validData Then MsgBox errorMsg, vbExclamation, "Datos Incompletos" Exit Sub End If ' Encontrar la última fila vacía en la hoja "DB" lastRowDB = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row + 1 ' Copiar valores de la Tabla_Formulario en la hoja "Form" a la hoja "DB" For i = 12 To 46 If wsForm.Cells(i, 3).Value <> "" Or wsForm.Cells(i, 4).Value <> "" Or wsForm.Cells(i, 5).Value <> "" Then wsDB.Cells(lastRowDB, 1).Value = wsForm.Range("E4").Value ' Columna A wsDB.Cells(lastRowDB, 2).Value = wsForm.Range("E5").Value ' Columna B wsDB.Cells(lastRowDB, 3).Value = wsForm.Range("E6").Value ' Columna C wsDB.Cells(lastRowDB, 4).Value = wsForm.Cells(i, 3).Value ' Columna D wsDB.Cells(lastRowDB, 5).Value = wsForm.Cells(i, 7).Value ' Columna E wsDB.Cells(lastRowDB, 7).Value = wsForm.Cells(i, 5).Value ' Columna F lastRowDB = lastRowDB + 1 End If Next i ' Limpiar los datos en la hoja "Form" wsForm.Range("F12:F46").Value = False ' Establece FALSE en el rango F12:F46 ' Limpiar otras celdas y actualizar la fecha wsForm.Range("E5:E6").ClearContents wsForm.Range("E4").Value = Date ' Borrar los valores existentes en el rango G12:G46 antes de aplicar la fórmula wsForm.Range("G12:G46").ClearContents ' Mostrar mensaje de éxito MsgBox "Datos copiados con éxito", vbInformation, "Proceso Completado" ' Establecer la fórmula en el rango G12:G46 For i = 12 To 46 wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")" Next i ' Mostrar mensaje de éxito MsgBox "FIN", vbInformation, "Proceso Completado" End Sub Todo el código funciona excepto la última parte, ' Establecer la fórmula en el rango G12:G46 For i = 12 To 46 wsForm.Cells(i, 7).Value = "=SI(F" & i & "=VERDADERO; C" & i & "; """")" Next i y tampoco se muestra el mensaje de FIN, Pero no me muestra ningún mensaje de error o depuración. simplemente finaliza la ejecución, todo lo demás lo hace.