#2199
Igazad van, elég, ha a szűrt állomány tagjain megy végig. Az A1 címsor, azért indítom A2-ből.
Sub Szurt_adatok()
Dim ter As Range, CV As Range
Set ter = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
For Each CV In ter
Range("B" & CV.Row) = 2 * CV
Next
End Sub