Updating excel range with dynamic price data

You can try to use this code:

Private Sub Macro1()
   Dim myRow As Long, lastRow As Long
   
   lastRow = Cells(Rows.Count, "a").End(xlUp).Row
   
   If lastRow > 9 Then
      For r = 2 To 10
         Cells(r - 1, "a") = Cells(r, "a")
      Next r
      myRow = 10
   Else
      If Cells(1, "a") = "" Then
         myRow = 1
      Else
         myRow = lastRow + 1
      End If
   End If
   Cells(myRow, "a") = bid_price 'new entry
End Sub

Regards,
Antonio