Option Explicit
Sub GatherFiguresXXX()
Dim wksSource As Worksheet, i As Long, lastRow As Long, rng As Range
ActiveWorkbook.Sheets("Sheet1").Copy After:=ActiveWorkbook.Sheets(1)
Set wksSource = ActiveSheet: wksSource.Name = "Data"
' SORT DATA BY CUSTOMER, PRODUCT, THEN SUPPLIER...