Try this code
Option Explicit
Sub create_master()
Dim lrow As Long, i As Long, j As Long
Application.ScreenUpdating = False
With Worksheets("Master Table")
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
If lrow > 1 Then .Range("A2:E" & lrow).ClearContents
End With
For i = 1 To Worksheets.Count
With Worksheets(i)
If .Name <> "Overview" Or .Name <> "Ratings Guide" Or .Name <> "Template" Or .Name <> "Blank" Or _
.Name <> "Master Table" Or .Name <> "Basket 1" Or .Name <> "Basket 2" Or .Name <> "Basket 3" Then
j = Worksheets("Master Table").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Master Table").Range("A" & j + 1).Value = .Range("V1").Value
Worksheets("Master Table").Range("B" & j + 1).Value = .Range("AB4").Value
Worksheets("Master Table").Range("C" & j + 1).Value = .Range("AF4").Value
Worksheets("Master Table").Range("D" & j + 1).Value = .Range("AB3").Value
Worksheets("Master Table").Range("E" & j + 1).Value = .Range("AB5").Value
ElseIf .Name = "Basket 1" Or .Name = "Basket 2" Or .Name = "Basket 3" Then
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
If lrow > 1 Then .Rows("2:" & lrow).ClearContents
End If
End With
Next i
With Worksheets("Master Table")
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A2:E" & lrow).Copy Worksheets("Basket 1").Range("A2")
.Range("A2:E" & lrow).Copy Worksheets("Basket 2").Range("A2")
.Range("A2:E" & lrow).Copy Worksheets("Basket 3").Range("A2")
.Visible = False
End With
Application.ScreenUpdating = True
End Sub
Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste
To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button
Regarding the filters to be applied to Basket 1, 2 and 3, you will need to specify the filters for each. The code will copy the data into the 3 sheets but the filters will not take into account the new data that has been added. The filters will need to be applied again.
Bookmarks