Tabelle über Listbox

Ich stelle mit folgendem Code eine Datenbank in einer Listbox dar

Private Sub UserForm_Initialize()
Dim lR%
lR = Worksheets("Vkpreis").Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.RowSource = "Vkpreis!D3:J26" & lR
ListBox1.ListIndex = 0
End Sub

Die Daten sind Formeln berechnet mit der Zelle A1

Ich möchte den Wert A1 in der Listbox ändern können und die Werte sollen dann aktuallisiert werden

Gibt es da eine Möglichkeit?
Gruß Alois