how to keep previous data in cell?

Thanks again for helping me...
I have tried your code in order to have the most current number in the upper cells and the older ones are pushed down. it does the job but everytime it also insert a blank line...

ok here is the code that I arranged according to what I want but wihout the last number being displayed on the top (in line 51):

Sub STRENGTH()

Sheets("Matrix").Select
Range("B51:F51").Select

Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = Range("E17").Value
Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = Range("D22").Value
Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).Value = Range("F22").Value
Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Value = Range("H22").Value
Cells(Rows.Count, "F").End(xlUp).Offset(1, 0).Value = Range("J22").Value

Application.OnTime Now() + TimeValue("00:01:00"), "STRENGTH"

End Sub


So what would you change in order to have the latest number to be copy in line 51 so that it pushes the oldest one down by one line...

I have tried

Range("B51:F51").Insert Shift:=xlDown

it does the job but it insert a blank line in 51 everytime news numbers are copied...

what should I modify...


Hope you understand what i need...

Thanks.