如何使用 VBA 仅在可见单元格中输入信息？

Question

我编写了一个 VBA 程序，可以根据用户输入自动筛选行。然后，程序提示用户一次输入（扫描）一个零件号，直到完成。现在，它会获取第一个扫描的数字并将其放入第 2 行，下一个放入第 3 行，依此类推。我该如何编程将其放入第一个可见单元格，即使这不是第 2 行？

例如：

row  PartScan
 2     22222
 3     33333
 4     44444

Here is what I want it to do:
row  PartScan
 2    
 3
 4     222222 <-first visible cell after the filter

这是此部分的代码：

i = 2
PartScan = 1

Do While PartScan <> 0
    PartScan = Application.InputBox(Prompt:="Please scan the next Part. If there are no more Parts, please press Cancel", Type:=1)
    
    Range("G" & i).Value = PartScan
    
    
    i = i + 1
    
Loop 

基本上，我如何将 i 设置为下一个可见单元格而不是始终从第 2 行开始？