Paste in the filtered column

[ShaImran193]

Data/values need to be pasted in a filtered column in visible cells only from another filtered column.
Please help in this regard.

 

[Akuini]

Please, check out this article:
excel-vba-easy-way-to-paste-to-visible-cells

 

[kvsrinivasamurthy]

Data in Sheet1 Column A , B

qqqqqqq	wwww
10	a
20	s
25	d
20	e
20	f
46	d
59	g
54	d
20	h
45	k

Pasted data From Column A after filtering in Column B for "d"

qqqqqqq

25

46

54

Code For Macro
Sub PasteFilteredData()
Dim Lr
Lr = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A1:B" & Lr).AutoFilter Field:=2, Criteria1:="d"
Range("A1:A" & Lr).Copy Sheets("Sheet3").Range("B1")
Selection.AutoFilter
End Sub