I have a sheet which updates throughout the day.

I am looking for VBA code to copy a value from E$1 to column A, third row, which will populate and update the column throughout the day.

I can specify cells in which to put specific values, eg 

Else
        Buy1 = .FeedFields(FFBuy1): BidSize = .FeedFields(FFBidSize)
        Sale1 = .FeedFields(FFSell1): AskSize = .FeedFields(FFAskSize)
        '---
        ExcelDoc.Sheets(1).Cells(nRow, 3).Value = Buy1  'Bid
        ExcelDoc.Sheets(1).Cells(nRow, 4).Value = Sale1  'Ask
        ExcelDoc.Sheets(1).Cells(nRow, 5).Value = BidSize  'BSz1
        ExcelDoc.Sheets(1).Cells(nRow, 6).Value = AskSize  'ASz1
        ExcelDoc.Sheets(1).Cells(nRow, 7).Value = .Close(0, Data)  'Last
        ExcelDoc.Sheets(1).Cells(nRow, 8).Value = .Volume(0, Data)  'Vol
        '---
        ExcelDoc.Sheets(1).Cells(13, 14).Value = BidSize 'Bid volume
        ExcelDoc.Sheets(1).Cells(14, 14).Value = .LimitVol(2, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(15, 14).Value = .LimitVol(3, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(16, 14).Value = .LimitVol(4, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(17, 14).Value = .LimitVol(5, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(18, 14).Value = .LimitVol(6, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(19, 14).Value = .LimitVol(7, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(20, 14).Value = .LimitVol(8, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(21, 14).Value = .LimitVol(9, osBuy, 0, Data)
        ExcelDoc.Sheets(1).Cells(22, 14).Value = .LimitVol(10, osBuy, 0, Data)
Can the code for copying value on update be inserted here or is it more complicated?

Any suggestions greatly appreciated.

Grant.