Here is my Macro:
Sub Macro2()
Dim lr As Long, lr2 As Long, lr3 As Long, lr4 As Long, r As Long
lr = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
lr2 = Sheets("R.Stallings").Cells(Rows.Count, "A").End(xlUp).Row
lr3 = Sheets("J.Allard").Cells(Rows.Count, "A").End(xlUp).Row
lr4 = Sheets("A.Godoy").Cells(Rows.Count, "A").End(xlUp).Row
For r = lr To 2 Step -1
Select Case Range("B" & r).Value
Case Is = "R.Stallings"
Range(Cells(r, 1), Cells(r, 8)).Copy Destination:=Sheets("R.Stallings").Range("A" & lr2 + 1)
lr2 = Sheets("R.Stallings").Cells(Rows.Count, "A").End(xlUp).Row
Case Is = "J.Allard"
Range(Cells(r, 1), Cells(r, 8)).Copy Destination:=Sheets("J.Allard").Range("A" & lr3 + 1)
lr3 = Sheets("J.Allard").Cells(Rows.Count, "A").End(xlUp).Row
Case Is = "A.Godoy"
Range(Cells(r, 1), Cells(r, 8)).Copy Destination:=Sheets("A.Godoy").Range("A" & lr4 + 1)
lr4 = Sheets("A.Godoy").Cells(Rows.Count, "A").End(xlUp).Row
End Select
Next r
End Sub
The Problem that i am having is that when it copies the rows to the other sheets, the order in which it pastes them is reversed. For example if rows 1-5 have "J.Allard" in Column B, the macro is pasting those rows in Sheet("J.Allard") in descending order (5-1). I DO NOT want this. I want the rows to paste in the same order that they appear.
Any help is greatly appreciated. Im new to macros so im sorry if this is a simple question.
Thank you
Bookmarks