Insert and move down fail?

I had the first code working fine, and amended it to the second. Now I get an "Insert method of Range class failed" message and the line "Selection insert..." is highlighted by the Debugger. Any solutions please? Basically every 5 seconds row 5 ranges are populated with fresh values. They get offset pasted to row 7 and previous pastes get shunted down by one row. The only other difference between the two versions is row 7 is now the next row after the header row of Tables. I did this so that formulas above become dynamic as the table expands.

Sub Record_data()
Sheets("Data").Select
    Sheets("Data").Rows("5:5").Select
    Sheets("Data").Range("B5").Activate
    Selection.Copy
    Sheets("Data").Rows("7:7").Select
    Sheets("Data").Range("B7").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data").Rows("7:7").Select
    Sheets("Data").Range("B7").Activate
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
End Sub

Sub Record_tabledata()
Sheets("Data").Select
Dim Area
For Each Area In Range("C5:M5,S5:Y5,AE5:AK5,AQ5:AW5,BC5:BI5,BO5:BU5,CA5:CG5,CM5:CS5,CY5:DE5,DK5:DQ5,DW5:EC5,EI5:EO5,EU5:FA5,FG5:FM5,FS5:FY5,GE5:GK5,GQ5:GW5").Areas
    Area.Offset(2, 0).Value = Area.Value
    Next
Sheets("Data").Rows("7:7").Select
    Sheets("Data").Range("B7").Activate
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove




    
End Sub

Re: Insert and move down fail?

Thanks for your reply.
The workbook is connected to a 3rd party application that updates values. There are two sheets, Sheet1 and PLACE. They are updated several times a second and sheet DATA responds to them. For your purposes, you won't be able to see it run in auto mode unfortunately. If you look at sheet DATA, you will see that when I ticked 'tick to record' box, row 5 cells were populated with values after 5 seconds. These cell ranges were offset pasted to row 7 ranges, which then would push the previous row 7 contents down to row 8 and so-on and so-forth. Unfortunately it timed out with the error on doing that, and remained with values in row 7 only. I'm dubious as to your success in analysing the problem without the live feed. Good luck, and thanks for your interest.

Re: Insert and move down fail?

Sorry, I've sent another file, as the last one is missing modules.

Re: Insert and move down fail?

Thanks KjBox, that code is masterful! You're in another stratosphere of advanced coders. It's a tad slow, takes about 3 secs to paste, but that's liveable.

Cheers

Re: Insert and move down fail?

A true legend! Not enough to do it well, just have to do it better. The sort of person we need in this world!