excel e vba per aggiornare dati già inseriti

[pericoli]

Ciao a tutti
ho modificato un modulo vba per excel ma mi mancano le competenze per gestire il tasto aggiorna, la funzione è quella di scrivere su campi già inseriti in precedenza, ma non riesco in alcun modo
allego excel e form
grazie

qui sotto il codice:
Private Sub Workbook_Open()
FrmLista.Show
End Sub


Private Sub CmdAggiorna_Click()



End Sub


Private Sub CmdCancella_Click()

Numriga = ActiveCell.Row

Rows(Numriga & ":" & Numriga).Select

Selection.Delete Shift:=xlUp

ScrNum.Max = ActiveSheet.UsedRange.Rows.Count

End Sub





Private Sub CmdCerca_Click()

On Error GoTo 10

Cells.Find(what:=TxtTitolo.Text, After:=ActiveCell, LookAt:=xlPart, SearchOrder:=xlByRows, Searchdirection:=xlNext).Activate

x = ActiveCell.Column

TxtTitolo.Text = ActiveCell.Text

ValScr = ActiveCell.Row

ScrNum.Value = ValScr

TxtNum.Text = ValScr

Exit Sub

10: Nuova = MsgBox("Anagrafica inesistente. Vuoi creare ?", vbYesNo)
If Nuova = vbYes Then
ValScr = ActiveSheet.UsedRange.Rows.Count + 1

TmpTitolo = TxtTitolo.Text

TmpEditore = TxtEditore.Text

TmpAutore = TxtAutore.Text

TmpEditore2 = TxtEditore2.Text

TmpAutore2 = TxtAutore2.Text

TmpEditore3 = TxtEditore3.Text

TmpAutore3 = TxtAutore3.Text

TmpEditore4 = TxtEditore4.Text

TmpAutore4 = TxtAutore4.Text

TmpEditore5 = TxtEditore5.Text

TmpAutore5 = TxtAutore5.Text

TmpEditore6 = TxtEditore6.Text

TmpAutore6 = TxtAutore6.Text

TmpEditore7 = TxtEditore7.Text

TmpAutore7 = TxtAutore7.Text

TmpEditore8 = TxtEditore8.Text

ScrNum.Max = ValScr

ScrNum.Value = ValScr

Range("A" & ValScr) = TmpTitolo

Range("B" & ValScr) = TmpEditore

Range("C" & ValScr) = TmpAutore

Range("D" & ValScr) = TmpEditore2

Range("E" & ValScr) = TmpAutore2

Range("F" & ValScr) = TmpEditore3

Range("G" & ValScr) = TmpAutore3

Range("H" & ValScr) = TmpEditore4

Range("I" & ValScr) = TmpAutore4

Range("J" & ValScr) = TmpEditore5

Range("K" & ValScr) = TmpAutore5

Range("L" & ValScr) = TmpEditore6

Range("M" & ValScr) = TmpAutore6

Range("N" & ValScr) = TmpEditore7

Range("O" & ValScr) = TmpAutore7

Range("P" & ValScr) = TmpEditore8

TxtNum.Text = ValScr


End If


End Sub


Private Sub CmdEsci_Click()

Unload Me

End Sub


Private Sub ScrNum_Change()

ValScr = ScrNum.Value

Range("A" & ValScr & ":" & "P" & ValScr).Select

TxtTitolo.Text = Range("A" & ValScr)

TxtEditore.Text = Range("B" & ValScr)

TxtAutore.Text = Range("C" & ValScr)

TxtEditore2.Text = Range("D" & ValScr)

TxtAutore2.Text = Range("E" & ValScr)

TxtEditore3.Text = Range("F" & ValScr)

TxtAutore3.Text = Range("G" & ValScr)

TxtEditore4.Text = Range("H" & ValScr)

TxtAutore4.Text = Range("I" & ValScr)

TxtEditore5.Text = Range("J" & ValScr)

TxtAutore5.Text = Range("K" & ValScr)

TxtEditore6.Text = Range("L" & ValScr)

TxtAutore6.Text = Range("M" & ValScr)

TxtEditore7.Text = Range("N" & ValScr)

TxtAutore7.Text = Range("O" & ValScr)

TxtEditore8.Text = Range("P" & ValScr)

TxtNum.Text = ValScr

End Sub





Private Sub SpnNum_SpinDown()

ScrNum.Value = 2

ScrNum_Change

End Sub





Private Sub SpnNum_SpinUp()

ValScr = ActiveSheet.UsedRange.Rows.Count

ScrNum.Max = ValScr

ScrNum.Value = ValScr

ScrNum_Change

End Sub



Private Sub UserForm_Activate()

ScrNum.Max = ActiveSheet.UsedRange.Rows.Count

ScrNum.Min = 2

End Sub