Macro for Autofill down based on cells to the right

[knpaddac]

I have attempted to use the macro recorder to do this, however, it just does not do what I want...
I want to create a macro that can be done via my keyboard (let's say ctrl + z) that will do the same as when I double click the corner box.

HOWEVER, the macro will only fill to the same number of cells as when I did it with the recorder rather than automatically going to the length of cells on the right.
Can anybody help me on this one?

 

[Joe4]

Try this:

Sub MyAutoFill()

    Dim lrA As Long
    Dim lrB As Long
    
'   Find last row in column A with data
    lrA = Cells(Rows.Count, "A").End(xlUp).Row

'   Find last row in column B with data
    lrB = Cells(Rows.Count, "B").End(xlUp).Row
    
'   If lrB greater than lrA, copy down values in column A
    If lrB > lrA Then
        Range(Cells(lrA + 1, "A"), Cells(lrB, "A")).Value = Cells(lrA, "A").Value
    End If

End Sub

 

[knpaddac]

Try this:

Sub MyAutoFill()

    Dim lrA As Long
    Dim lrB As Long
   
'   Find last row in column A with data
    lrA = Cells(Rows.Count, "A").End(xlUp).Row

'   Find last row in column B with data
    lrB = Cells(Rows.Count, "B").End(xlUp).Row
   
'   If lrB greater than lrA, copy down values in column A
    If lrB > lrA Then
        Range(Cells(lrA + 1, "A"), Cells(lrB, "A")).Value = Cells(lrA, "A").Value
    End If

End Sub

Based on how I described the problem, this did work. However, I'm afraid I didnt fully explain it. The data often looks more like this:

and I would like it to fill in like this:

.

 

[Joe4]

Check out the code at the bottom of this link: How to Fill Blank Cells in Excel With Value from Above – Contextures Blog