with both sheets in same book
Sub test()
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Big List").Range("A1", "J1").Copy Range("A1")
If Sheets("Big List").Range("H1") = vbNullString Then Sheets("Big List").Range("H1") = "*"
With Sheets("New formulas")
lastrow = .Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To lastrow
mycrit = .Range("A" & x)
Sheets("Big List").Range("A:J").AutoFilter Field:=1, Criteria1:=mycrit
With Sheets("Big List").Range("A1").CurrentRegion
.Offset(1).Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
Next
End With
ActiveSheet.Columns.AutoFit
If Sheets("Big List").Range("H1") = "*" Then Sheets("Big List").Range("H1") = ""
Sheets("Big List").Range("A:J").AutoFilter
End Sub
Kind regards
Leo
Bookmarks