VBA to copy / autofill data, where am i going wrong?

[plasteredric]

I have the following code


Sub DAILY_FORMULA_AUTOFILL()


Dim Found As Range


With ActiveSheet ' do everything on the active sheet from here on
Set Found = .Range("A:A").Find("***X", lookat:=xlWhole)


If Found Is Nothing Then
MsgBox "Table Start Point Not Found", 0, "Check Error"

Exit Sub

End If

FirstDataRow = Found.Row + 1
LastRow = .Cells(Rows.Count, "G").End(xlUp).Row ' This finds the last cell with data in it in column G on active sheet

Range("DAILY_FORMULA_RANGE_A").Copy Range("Y416:Y" & LastRow)

End With

End Sub




This works as is, but I was trying to use the 'found' and 'firstdatarow' rather than Y416:Y as a precaution, should i add additional rows / columns in the future. The range of Cells i am autofilling down is Y416:AB416 .

Any ideas for how i can do this? also from what i've read where i have 'LastRow' this should be the bottom rightmost cell of the destination range, in the example this would be AB545. Will having 'LastRow' cause any issues?

Thanks

[werafa]

the lastrow method you have chosen is one of the better methods.

You don't have to limit it to a specific column if you don't want to.
I typically use this method to define a data range as it can handle blank rows in the data field.

You might need to research it if you have hidden or filtered rows in the data field.