adjusting autofill range by referring to last row/column containing data in another sheet

[heathball]

Im trying to find an addition to the code blow, which adjusts the 'Selection.AutoFill Destination:=Range("A1:JS5338")' options on sheets 2 and 3

is there a way to identify the last column and last row containing data in "sheet 1" and use this range automatically as the autofill option on sheets 2 and 3?

So if on 'sheet 1' the range of columns containing data is A:JS
and the range of rows containing data is 1:5476

the autofill options on sheets 2 and 3 will automatically use the range A1:JS5476

thanks in advance

    Sheets("2 copy check").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Sheet1!RC"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:JS1"), Type:=xlFillDefault
    Range("A1:JS1").Select
    Selection.AutoFill Destination:=Range("A1:JS5338"), Type:=xlFillDefault
    Range("A1:JS5338").Select
    Application.CutCopyMode = False
    Sheets("3 copy paste").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=Sheet1!RC"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:JS1"), Type:=xlFillDefault
    Range("A1:JS1").Select
    Selection.AutoFill Destination:=Range("A1:JS5338"), Type:=xlFillDefault
    Range("A1:JS5338").Select
    Selection.Copy

 

[AlphaFrog]

This will fill the formulas on the two destination sheets.

    [color=darkblue]Dim[/color] strRng [color=darkblue]As[/color] [color=darkblue]String[/color]
    strRng = Sheets("Sheet1").Range("A1").CurrentRegion.Address
    Sheets("2 copy check").Range(strRng).FormulaR1C1 = "=Sheet1!RC"
    Sheets("3 copy paste").Range(strRng).FormulaR1C1 = "=Sheet1!RC"

This will fill the values on the two destination sheets.

    [color=darkblue]Dim[/color] strRng [color=darkblue]As[/color] [color=darkblue]String[/color]
    strRng = Sheets("Sheet1").Range("A1").CurrentRegion.Address
    Sheets("2 copy check").Range(strRng).Value = Sheets("Sheet1").Range(strRng).Value
    Sheets("3 copy paste").Range(strRng).Value = Sheets("Sheet1").Range(strRng).Value

 

[heathball]

I see
I have some blank columns in Sheet 1
what would this be changed to include empty columns and extend to the last used column?
strRng = Sheets("Sheet1").Range("A1").CurrentRegion.Address

 

[AlphaFrog]

strRng = Sheets("Sheet1").UsedRange.Address

 

[heathball]

Thats awesome. Works great! Thanks for your help

Usedrange.....it all kind of makes sense, but a bit hard to find