VBA - cppy and paste selected row

[titoexcel]

Hi - i currently have a piece of code that will copy the selected row and paste it right underneath. However, whenever I filter on a column and run the macro it will copy but paste blanks. There are some vlookups in some of the columns so was wondering if its possible to copy and paste exactly the same even if there is a filter somewhere?

current code:

Sub duplicateresource()ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1).EntireRow.Insert
End Sub

 

[titoexcel]

Is there anyone that can help with this please?