Copy data from multiple sheets to one main based on cell value

See attached file. You have to run the macro called Sold_Transfer. You can click on the Data menu and then on the Macros menu on the far right of the menubar. Then select the macro name and click on Execute.
Here is the macro:

Sub Sold_Transfer()
'
Dim S_heet As Worksheet, C_ell As Range
'
For Each S_heet In Application.Worksheets
  If S_heet.Name <> "MAIN" Then
    S_heet.Activate
    For Each C_ell In Range("B3", Cells(Rows.Count, 2).End(xlUp))
      If C_ell.Offset(0, 5) = "Sold" Then
        C_ell.Resize(1, 4).Copy
        Sheets("Main").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial
        Application.CutCopyMode = False
        Sheets("Main").Cells(Rows.Count, 2).End(xlUp).Offset(0, 5) = C_ell.Offset(0, 6)
      End If
    Next
  End If
Next
End Sub