Correction in code to re arrange data

HI All

the result of the of the macro is in tab Capitalisation

Below macro filters the right data in Site_assumptions and arranges into Capitalisation tab

Example

AT2 Krottenbach Jul-71 New sites Nov-17


However i need to add in column F "Engineers" and "Site finders" per site and i don't know how to write that


Hence it has to look like :

AT2 Krottenbach Jul-71 New sites Nov-17 Engineers
AT2 Krottenbach Jul-71 New sites Nov-17 Site finders



manyb thanks!

Sub CAPITALISATION()
Application.ScreenUpdating = False
    Sheets("CAPITALISATION").Cells(1).CurrentRegion.Offset(1).ClearContents
    'the current region only works if the columns and rows next to it are blank
   With Sheets("SITE_ASSUMPTIONS").Range("p9").CurrentRegion
        .Parent.AutoFilterMode = False
        ' colum to filter is 4
        '7 is part of the formula is always 7
        .AutoFilter 4, Array("Renovation", "New sites"), 7
        .Copy Sheets("CAPITALISATION").Cells(1)
        .AutoFilter
    End With
End Sub