Sub abc()
Dim myrange As Range
Application.ScreenUpdating = False
Sheets("DATA").Activate
LC = Cells(11, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("a11:j" & lr).AutoFilter
centerlr = Cells(Rows.Count, 14).End(xlUp).Row
For y = 12 To centerlr
Sheets("DATA").Activate
Range("a11:j" & lr).AutoFilter
myvalue = Cells(y, 14)
Range("A11:j" & lr).AutoFilter Field:=10, Criteria1:=myvalue
Set myrange = Sheets("DATA").Range("a12:i" & lr)
myrange.SpecialCells(xlCellTypeVisible).Copy
With Sheets("DESIRED RESULT FORMAT")
Sheets("DESIRED RESULT FORMAT").Activate
If .Cells(5, 1) = "" Then
.Cells(5, 1) = "S. NO"
.Cells(5, 2) = "Date"
.Cells(5, 3) = "Cashier"
.Cells(5, 4) = "Bill #"
.Cells(5, 5) = "Customer Name"
.Cells(5, 6) = "Product Code"
.Cells(5, 7) = "Amount"
.Cells(5, 8) = "Tax"
.Cells(5, 9) = "Net"
End If
destlr = Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DESIRED RESULT FORMAT").Range("a" & destlr + 1) = myvalue
Sheets("DESIRED RESULT FORMAT").Range("a" & destlr + 2).PasteSpecial Paste:=xlPasteValues
End With
Next y
Application.ScreenUpdating = True
End Sub