Application of information from the same workbooks, but one primary and the other working

[K0st4din]

Hello, everyone,
ask for your assistance in a macro:
I have a basic file that accrue monthly certain information. Every colleague sends me his file that has a complete copy of my, but bearing the new information that is colored red.
The main file and who receive contain 18 sheets with just specific names (ie identical names on the sheets).
Looking option will open the main file there is the macro to begin checking each sheet (I want to write the names of the sheets in the macro: eg sheets with names "tomatoes", "cucumber", "apples" and so on. n) of the resulting file and the first free line in the relevant sheet to transfer the information in my basic file (to have accumulation of information)
Filtering the red color is carried out in column "B", then copy the entire line (rows) and should be "paste special value", in my main file. If one of the sheets no red text, continue with the next sheet.
I'll try to let you a video hoping to become clearer and be able to understand what I mean.
https://www.youtube.com/watch?v=5ykaDPGZAms&feature=youtu.be

Thank you in advance for your assistance.
I wish you good health.

 

[K0st4din]

Hello again,
obviously no one can understand me, but I still think it's pretty easy.
I will attach two files: the main and second this that I receive each month.
The names of the sheets are the same, only the sheet name (Sheet1), do not do anything with it (it is constant).
The idea is that all the information in red (filtered in column B) to copy and go to the corresponding sheet and to add (paste special value) of the first free line (ie to accumulation of information).
Thank you in advance.
Mail file
Received file
Final results

 

[K0st4din]

Hello,
I'm trying to do something but do not know how to automate this macro ?!
Please for any assistance or if something is not clearly explain it in detail.
It is illustrative, but somehow so must be obtained.

Sub Macro1()'
' Macro1 Macro
'


'
    Sheets("test").Select
    Windows("recived file.xlsm").Activate
    Sheets("test").Select
    ActiveSheet.Range("$A$1:$S$29").AutoFilter Field:=2, Criteria1:=RGB(255, 0 _
        , 0), Operator:=xlFilterFontColor
    Rows("20:29").Select
    Selection.Copy
    Windows("basic file.xlsm").Activate
    Range("A30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("recived file.xlsm").Activate
    ActiveSheet.Range("$A$1:$S$29").AutoFilter Field:=2
    Application.CutCopyMode = False
    Sheets("test2").Select
    ActiveSheet.Range("$A$1:$S$29").AutoFilter Field:=2, Criteria1:=RGB(255, 0 _
        , 0), Operator:=xlFilterFontColor
    Rows("20:29").Select
    Selection.Copy
    Windows("basic file.xlsm").Activate
    Sheets("test2").Select
    Range("A30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("recived file.xlsm").Activate
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$S$29").AutoFilter Field:=2
    Sheets("test3").Select
    ActiveSheet.Range("$A$1:$S$29").AutoFilter Field:=2, Criteria1:=RGB(255, 0 _
        , 0), Operator:=xlFilterFontColor
    Rows("20:29").Select
    Selection.Copy
    Windows("basic file.xlsm").Activate
    Sheets("test3").Select
    Range("A30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("recived file.xlsm").Activate
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$S$29").AutoFilter Field:=2
    ActiveWindow.Close
    Range("A39").Select
    Sheets("test").Select
    ActiveWorkbook.Save
End Sub

 

[K0st4din]

Friends,
Do any of you can help me?
Is there something vaguely to explain that I helped to make this macro?
After waiting a few days, I have made an inquiry in another forum and there also have no review how to do things.
Asking for some assistance.