Thanks Arlu,

The following code
.AutoFilter Field:=Worksheets("Start").Range("O13").Value, Criteria1:=Worksheets("Start").Range("O14").Value, Criteria2:=Worksheets("Start").Range("O15").Value
            .Copy ThisWorkbook.Worksheets("S29 Data").Range("A1")
Can you check if this is okay, i get an error message to say subscript out of range