Actualizar un rango después de modificar un valor

Hola,

Cargo un rango a un listbox y necesito modificar algunos valores de ese rango, pero este rango esta filtrado por fechas. Por lo tanto ese valor actualizado tendría que remplazar al otro en esa lista. (Espero explicarme bien)

Dejo el código, o les envío el archivo a su correo.

Private Sub CommandButton1_Click()
'Por.DAM
'Filtra datos por fecha
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.Clear
h1.Rows(1).Copy h2.Range("A1")
Dim fec1 As Date
Dim fec2 As Date
fec1 = TextBox1
If TextBox2 = "" Then fec2 = fec1 Else fec2 = TextBox2
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
 If h1.Cells(i, "A") >= fec1 And h1.Cells(i, "A") <= fec2 Then
 h1.Rows(i).Copy h2.Range("A" & h2.Range("A" & Rows.Count).End(xlUp).Row + 1)
 End If
Next
ListBox1.RowSource = "Hoja2!A2:E" & Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row
End Sub
Private Sub CommandButton2_Click()
'aca intento actualizar la lista en hoja1
'lo filtrado se lleva a hoja2 y de ahi a listbox1
 If ListBox1.ListIndex = -1 Then Exit Sub
 X = ListBox1.ListIndex + 2
 ListBox1.RowSource = ""
 Worksheets("Hoja2").Range("C" & X) = TextBox3
 Worksheets("Hoja2").Range("D" & X) = TextBox4
 Worksheets("Hoja2").Range("E" & X) = TextBox5
End Sub
Private Sub ListBox1_Click()
 On Error Resume Next
 TextBox3.Text = ListBox1.Column(2)
 TextBox4.Text = ListBox1.Column(3)
 TextBox5.Text = ListBox1.Column(4)
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "55;55;55;55;55"
End Sub

Muchas gracias por tomarse el tiempo de leer mi inquietud.

Saludos