AutoFill VBA on last row

[ItalianPlatinum]

Hello - Having an issue modifying the below VBA to work when NOT on the sheet. When attempting to remove activate/select usage I cant seem to get the below to work when not on the sheet. is someone able to help? The problem is I am not on the "compare" sheet right before the action so it tries to paste formulas down on the sheet i dont want it to. then trying to see how to eliminate that last "select."

    Dim UsdRws As Long

'paste formulas down in Compare
Sheets("COMPARE").Range("F13:U13").Select
UsdRws = Range("A" & rows.count).End(xlUp).row
If UsdRws > 13 Then Range("F13:U" & UsdRws).FillDown

 

[Joe4]

The issue is if you are not on the sheet, and don't use the sheet reference when referring to your range, it will default to the active sheet.
So your code should look like this:

Dim UsdRws As Long

'paste formulas down in Compare
UsdRws = Sheets("Compare").Range("A" & rows.count).End(xlUp).row
If UsdRws > 13 Then Sheets("Compare").Range("F13:U" & UsdRws).FillDown

 

[ItalianPlatinum]

The issue is if you are not on the sheet, and don't use the sheet reference when referring to your range, it will default to the active sheet.
So your code should look like this:

Dim UsdRws As Long

'paste formulas down in Compare
UsdRws = Sheets("Compare").Range("A" & rows.count).End(xlUp).row
If UsdRws > 13 Then Sheets("Compare").Range("F13:U" & UsdRws).FillDown

WORKS. Thank you for that!

 

[Joe4]

You are welcome.

Just remember, whenever you want to refer to a range on a sheet that is not the active sheet, you need to include the sheet reference in your range.
Otherwise, it will default to the active sheet.