Draging Rows at the same time on another worksheet

[Mstg007]

.I have created a basic VBA macro that I want to do the basic function.

But I would like the user to choose the range then end on the last row that
the user has selected.


Is this possible?

Sub DRAG_DOWN()
    Rows("21:21").Select
    Selection.AutoFill Destination:=Rows("21:22"), Type:=xlFillDefault
    Rows("21:22").Select
    Range("A23").Select
    Sheets("Ration").Select
    Rows("21:21").Select
    Selection.AutoFill Destination:=Rows("21:22"), Type:=xlFillDefault
    Rows("21:22").Select
    Range("A23").Select
    Sheets("Struct").Select
    Rows("12:12").Select
    Range("C12").Activate
    Selection.AutoFill Destination:=Rows("12:13"), Type:=xlFillDefault
    Rows("12:13").Select
    Range("C14").Select
    Sheets("STM").Select
    Range("A16").Select
End Sub