VBA如何获取范围过滤和用户表单中的排序

Question

我是VBA的新手，这是我的问题：

Sheet 
A          B                C
TOTO       300              Keep
JOHN       200              Keep          
JOHN       100              Keep
ROBERTO    300  

目标是在用户表单中获得此范围，以便在对C进行过滤之后，为每一行创建复选框和文本框，并按A和B进行排序。

我已经尝试过了，但是行数仍然为零：

Set rng1 = Ws.Cells

rng1.AutoFilter Field:=3, Criteria1:="Keep"
rng1.Sort Key1:=Range("A1"), Order1:=xlAscending, key2:=Range("B1"), order2:=xlAscending
For i = 1 To rng1.Row (always zero!)
        Set Obj = UserForm1.Controls.Add("forms.textbox.1")...  
        Set Obj = UserForm1.Controls.Add("forms.checkbox.1")...
Next

在此先感谢您的帮助