From: Ashish Dabral <[email-masked]>
To: Abhishek Kumar <[email-masked]>
Date: Wed, 8 Sep 2021 23:45:24 -0700 (MST)

Sub Create_Worksheets() 

Dim i As Integer, sh As Worksheet 
Dim rng As Range, rng1 As Range 
Sheets("sheet1").Range("A1:G1").AutoFilter 
Set rng = Sheets("sheet1").Range("g1:G" & Sheets("sheet1").Cells(Rows.Count, "G").End(xlUp).Row) 
Set rng1 = Sheets("sheet1").Range("A1:G" & Sheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row) 
rng.AdvancedFilter Action:=xlFilterCopy, Copytorange:=Range("L1"), Unique:=True 
LRow = Sheets("sheet1").Cells(Rows.Count, "L").End(xlUp).Row 
For i = 2 To LRow 
rng1.AutoFilter field:=7, Criteria1:=Range("L" & i) 
Sheets.Add after:=Sheets(Sheets.Count) 
Sheets(Sheets.Count).Name = Sheets("sheet1").Range("L" & i).Value 
Sheets("sheet1").Activate 
Sheets("sheet1").Range("A1").CurrentRegion.Copy Sheets(Sheets.Count).Range("A1") 
Next i 
End Sub 

Regards, 
Ashish Dabral