modify VBA Code to shift older data down and copy newer at top

[David gonzalez]

Hi,

on daily basis and with aid of excel helper info I create a report (between 9 to 24 rows).
So i have a vba code that copy this Info and paste the data in next blank cell in Report area located in same sheet (but different area).
The code is working fine, except that always newer data it copy at bottom of the sheet and data is getting bigger.

Then what i need to accomplish is to modify the line of code and change the Order of copy
From Top newer (today data) and move/shift the Older (yesterday data) to Bottom.

This the actual data (see date Oct 5, oct 6, oct 7 down)

This Is the Ideal Data with newest date at Top ( Oct 7, Oct 6, Oct 5..)

This is the actual code

Sub ReporTrack_Test()    Dim j As Long
    For j = 4 To 12 
        If Cells(j, 58).Value > 1 And Cells(j, 58).Value < 36 Then _
        Cells(Rows.count, 20).End(xlUp).Offset(1).Resize(, 22).Value = Cells(j, 58).Resize(, 22).Value
    
    Next j
End Sub

Thank you !


Best Regards

David

 

[David gonzalez]

Hi Mr JoeMo

This is the code with ranges that i'm using with the following ranges on report and excel helper
-.The report start on row 3 (Col 20 to 40)
-.The Excel Helper data start on Row 4 (Col 58 to 78 )

Sub ReporTest()   'ReporTrack_1_JP_NS
Dim j As Long
For j = 4 To 12
    If Cells(j, 58).Value > 1 And Cells(j, 58).Value < 36 Then _
       Cells(Rows.count, 20).End(xlUp).Offset(1).Resize(, 22).Value = Cells(j, 58).Resize(, 22).Value
    
    Next j
    With Range("AG2")
        .Sort key1:=[AG3], order1:=xlDescending, Header:=xlYes
    End With
End Sub

Best Regards

David

 

[JoeMo]

Did you read my post #10?

 

[David gonzalez]

Hi Mr JoeMo.

Yes sir, i've read your post #10,

sample file sent.



Best Regards

David

 

[David gonzalez]

Hi Mr JoeMo

Yes sir, your code it work like a Charm !!!
My Apologize to bother that much.

Here is your code

Sub ReporTest()' Code done by Mr JoeMo, www.mrexcel.com 
Dim j As Long, lR As Long
For j = 4 To 12
    If Cells(j, 58).Value > 1 And Cells(j, 58).Value < 36 Then _
       Cells(Rows.Count, 20).End(xlUp).Offset(1).Resize(, 22).Value = Cells(j, 58).Resize(, 22).Value
    
    Next j
    lR = Range("AG" & Rows.Count).End(xlUp).Row
    With Range("T2:AN" & lR)
        .Sort key1:=[AG3], order1:=xlDescending, Header:=xlYes
    End With
End Sub

Thank you so much !!!



Best Regards from Miami

David G.

 

[JoeMo]

Hi Mr JoeMo

Yes sir, your code it work like a Charm !!!
My Apologize to bother that much.

Here is your code

Sub ReporTest()' Code done by Mr JoeMo, www.mrexcel.com 
Dim j As Long, lR As Long
For j = 4 To 12
    If Cells(j, 58).Value > 1 And Cells(j, 58).Value < 36 Then _
       Cells(Rows.Count, 20).End(xlUp).Offset(1).Resize(, 22).Value = Cells(j, 58).Resize(, 22).Value
    
    Next j
    lR = Range("AG" & Rows.Count).End(xlUp).Row
    With Range("T2:AN" & lR)
        .Sort key1:=[AG3], order1:=xlDescending, Header:=xlYes
    End With
End Sub

Thank you so much !!!



Best Regards from Miami

David G.

You are welcome - thanks for the reply.