DAmor_Editar fila de una hoja desde formulario

Estimado Dante quisiera ayuda con el tema que esta pendiente, tengo dos formularios, el formulario 1 muestra mediante un listbox los datos de una hoja y el segundo que carga los datos del formulario1 al darle clic al listbox a los textbox del formulario 2, ahora en el formulario 2 tengo un botón editar que me permite modificar cualquier dato de la hoja, el detalle es que esa función sirve cuando ejecuto los formularios de la misma hoja donde están los datos, pero, Pero, si ejecuto mediante un botón desde otra hoja no funciona la edición, ya que mencionaste que podías continuar ayudándome, dirijo la pregunta a ti para que me des un apoyo con esta parte final, muchas gracias, te dejo el código que tengo.

Código del formulario 1

Private Sub CommandButton2_Click()
    Unload Me
End Sub
'Private Sub ListBox1_Click()
'    For i = 0 To ListBox1.ListCount - 1
'        If ListBox1.Selected(i) = True Then
'            Set busco = ActiveSheet.Range("a:a").Find(Me.ListBox1, LookIn:=xlValues, LookAt:=xlWhole)
'        If Not busco Is Nothing Then
'            busco.Select
'        End If
'    End If
'    Next
'End Sub
'
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm2.Show
End Sub
'
Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnCount = 6
        .ColumnWidths = "50 pt;50 pt;50 pt;100 pt;100 pt;60 pt"
        .ColumnHeads = True
    End With
    ListBox1.RowSource = "Datos"
End Sub

Codigo del formulario 2

Private Sub UserForm_Initialize()
'Por.Dante Amor
'cargas datos a los textbox
    Set h = Sheets("COnforme")
    fila = UserForm1.ListBox1.ListIndex + 2
    For i = 1 To 6
        Me.Controls("TextBox" & i).Value = h.Cells(fila, i).Value
    Next i
End Sub

Codigo del botón que edita pero no edita XD

Private Sub CommandButton1_Click()
    pregunta = MsgBox("Desea modificar el registro?", vbYesNo + vbQuestion, "EXCELeINFO")
    If pregunta <> vbNo Then
        For i = 1 To 6
            ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
        Next i
            MsgBox ("Registro modificado"), vbInformation, "EXCELeINFO"
        End If
        ActiveWorkbook. Sabe
        Unload Me
End Sub