VBA粘贴范围到过滤数据

Question

我正在尝试将范围从其他工作表粘贴到过滤范围，假设我想将工作表（2）.range（“B2：B5”）复制到工作表（1）。范围（过滤范围），如在图片中（B4，B5，B9，B10）

但普通的粘贴不起作用。任何帮助？感谢。

Sub copyback2table()
    Dim i As Integer, x As Integer, j As Integer
    j = 1
    For i = 1 To 10
       Do
           j = j + 1
       Loop While Sheets(1).Rows(j).Hidden = True
       Sheets(1).Range("B" & j).Value = Sheets(2).Range("B" & i + 1).Value
    Next i
End Sub