VBA: Filter then Paste into Different Workbook

[nickshep85]

I am very new to VBA and am trying to find a way to apply an autofilter and then paste the results onto a specific sheet in a different workbook. Sadly, my small grasp of VBA has stopped when it comes to this . Can anyone help me please? Details are as below:

• The Workbook that I need filtered is called PriceFile and could have anywhere between 1 & 3 sheets;
• The data that needs to be filtered will always be Column I, and will be either TRUE or FALSE;
• My destination Workbook is called ImportFile, and has two Sheets: "Tyres" and "Mechanical"
• The Sheets in the destination Workbook have two rows at the top which I use for headers
• All TRUE values from PriceFile need to be copied into the next available Row in "Mechanical" tab
• All FALSE values from PriceFile need to be copied into the next available Row in "Tyres"

I'm sure that there would be a way of looping through Sheets to filter, then copy and paste into the next Row in the required Sheet, but I am getting very, VERY, lost.

Please can someone help me with this problem, as I don't know where to begin with this.

Many thanks in advance.

 

[nickshep85]

Following on from this, I have tried to use a code from someone else which works partly.

The code below copies all TRUE value Rows and pastes them into the Mechanical tab on my ImportFile Workbook, but then does not move onto the next sheet to do the same. Can anyone suggest how I would get this to loop onto the next sheet?

Workbooks("PriceFile.xls").Activate
    m = 3
    t = 3
    For i = 1 To Workbooks("PriceFile.xls").Sheets.Count
        Worksheets(i).Select
        For l = 1 To Cells(Rows.Count, "I").End(xlUp).Row
            If Cells(l, 9).Value = "True" Then
                Rows(l).Copy
                Workbooks("ImportFile.xls").Activate
                Worksheets("Mechanical").Select
                Cells(m, 1).Select
                ActiveSheet.Paste
                m = m + 1
            End If
            If Cells(l, 9).Value = "False" Then
                Rows(l).Copy
                Workbooks("ImportFile.xls").Activate
                Worksheets("Tyres").Select
                Cells(t, 1).Select
                ActiveSheet.Paste
                t = t + 1
            End If
            Workbooks("PriceFile.xls").Activate
            Worksheets(i).Select
        Next l
    Next i
End Sub