Sortierfunktion aus RTD-Daten

Hallo liebe VBA Profis,

In der Zelle 1,1 laufen wechselnde Interger ein, die in ("C1:C30") dargestellt werden. Dabei beginnt die Darstellung in C1 und läuft dann zu C2 u.s.w. bis zur C30, danach springt sie wieder zur C1. Wie kann man die Sortierfunktion abändern, dass der wechselnde Interger immer in C1 bleibt und die vorherigen Ergebnisse bis zur C30 nach unten laufen? Lieben Dank für eure Hilfe. Liebe Grüße Micha

Anbei der genutzte VBA Code

Option Explicit
Public flag As Boolean, anz As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address > "$A$1" Then Exit Sub
anz = anz + 1: If anz > 30 Then anz = 1
Cells(anz, 3) = Target.Value
Cells(5, 1) = WorksheetFunction.Average(Range("C1:C30"))
End Sub

Private Sub TextBox1_Change()
anz = anz + 1: If anz > 30 Then anz = 1
Cells(anz, 3) = CDbl(TextBox1)
Cells(5, 1) = WorksheetFunction.Average(Range("C1:C30"))
End Sub