Copy cell range onto new tabs sorted in groups

[MagPower]

Paul,

Just curious, what is the difference between the following two statements?

Set r1 = ws1.Cells(1, 1).End(xlDown).CurrentRegion
and
Set r1 = ws1.Cells(1, 1).CurrentRegion