Suma mnogościowa 2 kolumn + sortowanie

lastrow1 = Worksheets("Uprawnienia_Grupa1").Range("B" & Rows.Count).End(xlUp).Row
lastrow2 = Worksheets("Uprawnienia_Grupa2").Range("B" & Rows.Count).End(xlUp).Row
Worksheets("Uprawnienia_Grupa1").Range("B2:B" & lastrow1).Copy
Worksheets("Uprawnienia_Union").Range("A1").PasteSpecial
Worksheets("Uprawnienia_Grupa2").Range("B2:B" & lastrow2).Copy
Worksheets("Uprawnienia_Union").Range("A" & lastrow1).PasteSpecial
lastrow3 = Worksheets("Main").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Uprawnienia_Union").Range("A1:A" & lastrow3).RemoveDuplicates Columns:=1
lastrow4 = Worksheets("Main").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Uprawnienia_Union").Activate
Worksheets("Uprawnienia_Union").Range("A:A").Sort Key1:=Worksheets("Uprawnienia_Union").Range("A1"), _
Order1:=xlAscending, _
Header:=xlNo

Tags: 
vba