VBA Formula replication in a Table does not work

[Pacool]

Hello!

I have preapred a macro that copies filtered scope and pastes it in another workbook in a Table.
Usually when we paste a database that has more rows into a table, formulas placed in additional columns are being replicated to the new rows.
But it is not working when i use a code:

    CountrySourceFile.Sheets("Sheet1").Activate
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4, Criteria1:=Left(It.Name, InStr(It.Name, "_") - 1)
    CountrySourceFile.Sheets("Sheet1").Range("A1").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).Copy
    It.Sheets("Sheet1").Range("A2").PasteSpecial xlPasteValues

It is very strange that data is being pasted correctly but there is no "response" from a table in terms of formula replication.

Do you maybe have any ideas why?

Thanks!

 

[Pacool]

Can somebody help?

 

[Pacool]

Bumping up