Select Last Row of Specified Columns and Drag Formula Down

[David04Ruiz]

Hi all,

I'm trying to figure out a formula that would allow me to select the last row of data for columns A-C and then drag that formula down to the last row of data based on column D. In the case of the image I attached, I would need to select cells (602A:602C) and then drag the formula in those cells down to cells (620A:620C).

The actual row will not be 602 like in the picture (it changes daily as we add data), but we will always be selecting column A-C only.

Does anyone have a method of doing this? Thank you so much in advance!!

 

[MARK858]

Assuming that you meant code rather than formula then maybe something like the code below

Sub Ruiz()
    Dim Lrow As Long, Lrow2 As Long
    Application.ScreenUpdating = False

    Lrow = Columns("A:C").Find("*", , xlValues, , xlByRows, xlPrevious).Row
    Lrow2 = Columns("D").Find("*", , xlValues, , xlByRows, xlPrevious).Row
    Range(Cells(Lrow, "A"), Cells(Lrow, "C")).AutoFill Range(Cells(Lrow, "A"), Cells(Lrow2, "C"))

    Application.ScreenUpdating = True
End Sub

 

[David04Ruiz]

Assuming that you meant code rather than formula then maybe something like the code below

Sub Ruiz()
    Dim Lrow As Long, Lrow2 As Long
    Application.ScreenUpdating = False

    Lrow = Columns("A:C").Find("*", , xlValues, , xlByRows, xlPrevious).Row
    Lrow2 = Columns("D").Find("*", , xlValues, , xlByRows, xlPrevious).Row
    Range(Cells(Lrow, "A"), Cells(Lrow, "C")).AutoFill Range(Cells(Lrow, "A"), Cells(Lrow2, "C"))

    Application.ScreenUpdating = True
End Sub

Yes code not formula, my bad wasn't thinking lol. That worked perfectly thanks so much!!

 

[MARK858]

You're welcome