Applying VLookup in VBA to Filtered Data

[Neild137]

I have the following which is referring to a cell within filtered data and applying a vlookup to that cell, this works great. Now the hard part is getting the last two lines to work, which autofill the FILTERED DATA with the same vlookup formula. This is where I'm messing up and need help.

ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 10).Select
     Selection = Application.WorksheetFunction.VLookup(ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(2, 1), Sheets("2016").Range("$A:$AN"), 10, False)
    
    Dim Lastrow As Long
    Application.ScreenUpdating = False
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 10).Select
    Selection.AutoFill Destination:=Range(ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 10) & Lastrow), Type:=xlFillDefault
    
    ActiveSheet.Calculate