关于自动填充到最后一行

ccfly940802

小白初步接触VBA，请问如何使可以通过代码自动填充C列至最后一行，我现在的工作每天的报表数据行数都是在不断变化的，目前只会机械地修改Range的范围，这样我后续Vlookup处理数据的时候会出现跟多无效行，所以想问除了修改Range的数值外，是否有其他更智能更专业的判断条件/代码，多谢！！！

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. 
   
6. '
   
7.     Selection.AutoFill Destination:=Range("C2:C8")
   
8.     Range("C2:C8").Select
   
9. End Sub

复制代码

PO No	PO POS	PO
J1A364518	10	J1A36451810
J1A364519	10	J1A36451910
J1A364520	10	J1A36452010
J1A364521	10	J1A36452110
J1A364522	10	J1A36452210
J1A364523	10	J1A36452310
J1A364524	10	J1A36452410
J1A364525	10
J1A364526	10
J1A364527	10

lss001

Sub 宏1()
x = Cells(Rows.Count, 3).End(4).Row
    Selection.AutoFill Destination:=Range("C2:C" & x )
    Range("C2:C" & x).Select
End Sub