Paste on filtered data Visible Cells

[Sufiyan97]

Is it possible without macro?
I want to paste sheet2 values Range (B2:B5) into Filtered data Visible rows 3, 7, 12, 17 on sheet 1 below

Book1
	A
1	Name
3
7
12
17
28
Sheet1

Sheet 2

Book1
	B
2	B
3	F
4	K
5	P
Sheet2

 

[maabadi]

I try to Use column B at sheet1 to find Lastrow has Data .
Try this:

Sub PasteatVisibleCells()
Dim i As Long, Lr As Long, Rng As Range, Sh1 As Worksheet, Sh2 As Worksheet, Cell As Range
Set Sh1 = Sheets("Sheet1")
Set Sh2 = Sheets("Sheet2")
Lr = Sh1.Range("B" & Rows.Count).End(xlUp).Row
Set Rng = Sh1.Range("A2:A" & Lr)
i = 2
For Each Cell In Rng
If Cell.EntireRow.Hidden = False Then
Cell.Value = Sh2.Range("B" & i).Value
i = i + 1
End If
Next Cell

End Sub

 

[Sufiyan97]

It's pasting only 1 value

Book1
	A
1	Name
3	B
7
12
17
Sheet1

 

[Fluff]

How about

Sub alidurfani()
   Dim Cl As Range
   Dim i As Long
   
   i = 1
   For Each Cl In Sheets("Sheet1").Range("A:A").SpecialCells(xlVisible)
      i = i + 1
      Cl.Value = Sheets("Sheet2").Range("B" & i).Value
   Next Cl
End Sub

 

[Sufiyan97]

How about

Sub alidurfani()
   Dim Cl As Range
   Dim i As Long
  
   i = 1
   For Each Cl In Sheets("Sheet1").Range("A:A").SpecialCells(xlVisible)
      i = i + 1
      Cl.Value = Sheets("Sheet2").Range("B" & i).Value
   Next Cl
End Sub

Hello Fluff,

It's working but it is starting pasting from A1 as below and while running this code, Excels stops working

Book1
	A
1	B
3	F
7	K
12	P
17
Sheet1

 

[Sufiyan97]

However I have found another solution for it.

Book1
	A	B
1	Row No.	AAA
3	3	B
7	7	F
12	12	K
17	17	P
Sheet1

Cell Formulas
Range	Formula
A3,A17,A12,A7	A3	=ROW()
B3,B17,B12,B7	B3	=VLOOKUP(A3,Sheet2!$A$2:$B$5,2,0)

Sheet2

Book1
	A	B
1
2	3	B
3	7	F
4	12	K
5	17	P
Sheet2

 

[Fluff]

Glad you sorted it & thanks for the feedback.