Filter, copy specific columns, and paste to another sheet as VALUES ONLY

Try this:

Dim wsSource As Worksheet, wsOutput As Worksheet, rngData As Range
Set wsSource = Sheets("1- Status")
Set wsOutput = Sheets("HR")

With wsSource
    Set rngData = .AutoFilter.Range
    If rngData.Columns(5).SpecialCells(xlCellTypeVisible).Count = 2 Then
        Intersect(rngData.Offset(1).Resize(rngData.Rows.Count - 1), .Range("A:A")).Copy
            wsOutput.Range("G6").PasteSpecial xlPasteValues
        Intersect(rngData.Offset(1).Resize(rngData.Rows.Count - 1), .Range("B:B")).Copy
            wsOutput.Range("I6").PasteSpecial xlPasteValues
        Intersect(rngData.Offset(1).Resize(rngData.Rows.Count - 1), .Range("H:H")).Copy
            wsOutput.Range("D8").PasteSpecial xlPasteValues
        Intersect(rngData.Offset(1).Resize(rngData.Rows.Count - 1), .Range("K:K")).Copy
            wsOutput.Range("D10").PasteSpecial xlPasteValues
        Intersect(rngData.Offset(1).Resize(rngData.Rows.Count - 1), .Range("X:X")).Copy
            wsOutput.Range("C40").PasteSpecial xlPasteValues
        Intersect(rngData.Offset(1).Resize(rngData.Rows.Count - 1), .Range("AF:AF")).Copy
            wsOutput.Range("B40").PasteSpecial xlPasteValues
    Else
        MsgBox "No hay datos para esa póliza, o existe más de 1 póliza con ese número"
    End If
End With

Set rngData = Nothing
Set wsOutput = Nothing
Set wsSource = Nothing