Estoy tratando de copiar solo los datos filtrados de la columna B de una hoja de cálculo a otra, el inconveniente es que la macro con la que estoy trabajando esta situación pega todos los valores de la tabla comprendida en las columnas B: I desde la fila 3 en adelante, a continuación, muestro el código que estoy ajustando a este caso, si es posible espero su ayuda en este caso
Sub ConditionalCopy()
Set H1 = Sheets("VINCULACION_SV")
Set H2 = Sheets("SEN_CONTENIDO_TABLERO")
j = H2.Range("D" & Rows.Count).End(xlUp).Row + 1
i = 3
With H1
If .Cells(i, "B").Value <> "" Then
.AutoFilterMode = False
.Range("B3:B3").AutoFilter
.Range("B3:B3").AutoFilter , Field:=5, Criteria1:="<>"
. UsedRange. SpecialCells(xlCellTypeVisible).Copy Destination:=Range(Cells(j, "D"), Cells(j, "D"))
.AutoFilterMode = False
Application.CutCopyMode = False
End If
End With
End Sub