AutoFill down to the first non empty cell in a macro again

[Bookmaster]

Hi,

I have similar problem like member ECKSELL in his post "AutoFill down to the first non empty cell in a macro".
I want to put macro that fill my range with formula from second row until first empty cell.

For now my macro is like this:

Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J39")
Range("J2:J39").Select
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L39")
Range("L2:L39").Select
End Sub

I am not sure how long will be my range next time. This time is 39 rows. So I want to put macro that always fill range until first empty cell.

Thanks in advance.

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("J2").AutoFill Destination:=Range("J2:J" & LR)
Range("L2").AutoFill Destination:=Range("L2:L" & LR)
End Sub

 

[Bookmaster]

Thank you very much. That is what I was looking for. I tried so many times to make that macro, but I didn't know how.

Thank you again