Autofiltar y copiar celda visible en otra celda

[Alex Razo]

Buenas tardes, tengo el siguiente código, pero no sé qué instrucción necesito agregar para que pegue solo los valores de la celda copiada. Ya que me manda error de compilación, de antemano, gracias por la ayuda

Sub FirstVisibleCell()
 With Worksheets("Seguimiento").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
       Selection.CurrentRegion.Select
       Selection.SpecialCells(xlCellTypeVisible).Select
      ActiveCell.Copy Destination:=Range("F1").PasteSpecial xlPasteValues
      End With
End Sub

[JSDJSD]

Sube tu archivo

 

[Antoni]

Sin entrar a valorar nada más que el error:

Sub FirstVisibleCell()
With Worksheets("Seguimiento").AutoFilter.Range
   ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
   Selection.CurrentRegion.Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   ActiveCell.Copy: Range("F1").PasteSpecial xlPasteValues '<--------------
End With
End Sub

 

[Alex Razo]

acias Antoni por pronta respuesta, me funciono de maravilla, saludos

[Alex Razo]

hace 5 horas, JSDJSD dijo:

Sube tu archivo

 

Gracias JSDJSD ya me respondió Antoni