If Cells(i, 5).Value <> Range("C5").Value And Not IsEmpty(Cells(i, 1).Value)

Cells(i, 1).EntireRow.Hidden = True

End If

Next i

Application.ScreenUpdating = False

Dim xSheet As Worksheet

Dim eSheet As Worksheet

Dim i As Long

Set xSheet = ActiveSheet

Set eSheet = Worksheets("Engines")

Set fSheet = Worksheets("Tanks")

    If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then

        eSheet.Range("A13:N150").Copy

        xSheet.Range("B22:N50").PasteSpecial Paste:=xlPasteAll,

End If

    If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then

        fSheet.Range("B8:K42").Copy

        xSheet.Range("R8:AA42").PasteSpecial Paste:=xlPasteAll,

End If