Esto debería ayudarte a entender como funciona, te recomiendo poner `Option Explicit` en tus módulos y declarar todas las variables:

    Option Explicit
    Sub ConditionalCopy()
        
        'Primer problema, al referenciar una hoja, dale también su libro.
        'He puesto ThisWorkbook, que es el mismo que el que tiene el código.
        'Si quisieras hacer referencia a otro libro que no es el que lo contiene,
        'cambia Thisworkbook por Workbooks("Nombre.Extensión") del libro.
        Dim H1 As Worksheet: Set H1 = ThisWorkbook.Sheets("VINCULACION_SV")
        Dim H2 As Worksheet: Set H2 = ThisWorkbook.Sheets("SEN_CONTENIDO_TABLERO")
        Dim j As Long: j = H2.Range("D" & H2.Rows.Count).End(xlUp).Row + 1
        Dim i As Long: i = 3
        Dim LastRow As Long
        With H1
            If .Cells(i, "B").Value <> "" Then
                .AutoFilterMode = False
                '.Range("B3:B3").AutoFilter esto te sobra
                .Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
                LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
                'Estabas pegando todos los datos en la hoja activa, si la hoja activa era H1
                'te los pegaría en la misma, al poner la referencia de H2 delante, te los pegará
                'donde tú querías sin importar la hoja activa.
                'Al poner el rango de B4 a B y la última fila con datos te pegará el dato que
                'deseas, ya que usedrange coge literal, el rango utilizado, que puede ser toda la hoja.
                .Range("B4:B" & LastRow).SpecialCells(xlCellTypeVisible).Copy H2.Range("D" & j)
                .AutoFilterMode = False
                Application.CutCopyMode = False
            End If
        End With
        
    End Sub