Selection Autofill to last row

hello guys i need some help

i need macro whitish take my formula in cell and bring down to all rows

    Range("R3").Select
    Selection.AutoFill Destination:=Range("R3:R22"), Type:=xlFillDefault
    Range("R3:R22").Select
    Range("V3").Select
    Selection.AutoFill Destination:=Range("V3:V22"), Type:=xlFillDefault
    Range("V3:V22").Select
    Range("AD3:AF3").Select
    Selection.AutoFill Destination:=Range("AD3:AF22"), Type:=xlFillDefault
    Range("AD3:AF22").Select
End Sub

Something like this but not for range but for last row and not for active worksheet but for specifics sheet "Actona" "BXS" "NEPATVIRTINTI" "MOEMAX"

i add sample all my formulas in hidden Row 3 i mark cells be yellow color which have formulas.

Sub fillmein()
    Dim ws As Worksheet
    Application.ScreenUpdating = 0
    
    For Each ws In ThisWorkbook.Worksheets
    
       With ws
       
         .Range("R3").AutoFill .Range("R3:R22"), Type:=xlFillDefault
         .Range("V3").AutoFill .Range("V3:V22"), Type:=xlFillDefault
         .Range("AD3:AF3").AutoFill .Range("AD3:AF22"), Type:=xlFillDefault
      End With
    Next
      Application.ScreenUpdating = True
End Sub

No its sesame like my macro its run jest for row 22 ... but i need for last row. in my documents every day will be different number of rows.

and one more problem its working for all worksheets in workbook i need jest for worksheets whit specific name "Actona" "BXS" "NEPATVIRTINTI" "MOEMAX"

For Each ws In ThisWorkbook.Worksheets(Array("Actona", "BXS", "NEPATVIRTINTI", "MOEMAX"))