不確定格子向下填滿

d8722468

請教各位前輩，小弟知道自已寫的句子，可以在有A欄有值情形下，
可以在尾欄下拉自動填滿
但是會遇到的情形並不一定會是在A欄有值
也許會是在E或 F或不確定某欄會出現第一欄


取第一格的列 = Selection.Row
取第一格的數量 = Selection.Count

With Selection.Resize(Range("A1").CurrentRegion.Rows.Count + 1 - 取第一格的列, 取第一格的數量)
   '這一句小弟想破頭也不會~~~請各位大大指導

     .FillDown
    ActiveSheet.Range("A1").CurrentRegion.Calculate
    .Copy
    .PasteSpecial Paste:=xlPasteValues
   
End With