set range with .Cells.SpecialCells(xlCellTypeLastCell)

[white_flag]

helllo

I have this code:

Sub test()

Dim my_range As Range
Dim c As Variant

Set my_range = ActiveWorkbook.Sheets(Me.Controls("Combobox1").Value).Range("M25:M30")

    For Each c In my_range
        c.Formula = Cells(c.Row, c.Column).Value & "*(1+$L$294/100)"
    Next c

End Sub

but I like to declare

Set my_range = ActiveWorkbook.Sheets(Me.Controls("Combobox1").Value).Range("M25:M30")

with this (this is not going):

Set my_range = ActiveWorkbook.Sheets(Me.Controls("Combobox1").Value).Range(.Cells(25, 13), .Cells.SpecialCells(xlCellTypeLastCell))

what can be done?

 

[white_flag]

sorry, my bad:

Set my_range = ActiveWorkbook.Sheets(Me.Controls("Combobox1").Value).Range(Cells(25, 13), Cells.SpecialCells(xlCellTypeLastCell))

like this is ok